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TSX Terminal 
contents 

1 WRITTT 
1 TTREAD 
. PRINT 
. TTYOUT 
. TTYIN 
High-ef 
ASKLIN 
OUTSTR 
CSIMSG 
UOTSTR 
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4 






2 



WRITE emt with terminal as output device 



ficiency TTY EMTs 

— Accept line from terminal 

— Print a system message on the user's console 

— Print a CSI asciz error message 

— print an asciz user's message on the user's console 



«« Program Level Output Character Processing ** 

PUTCHR — Send character to terminal 

PUTCHl — Queue character for terminal 

PUTCH2 — Queue character for a terminal 

QUECHR — Queue character for transmission 

BUFCHR — Insert char or suspend if full 

HIPUT — High efficiency PUTCHR 

ESCHK — Check for echo suppression restart 

LIFUN — Process lead-in function sequences 

** Program Level Input Character Processing ** 

• Get next input char 

• Try to get char from command file 

• Do command file I/O 

• Determine if TT input is from file 

• Suspend command file input 

■ Restart command file input 

■ Pop up to next command file 

- Write character to log file 

- Wait for activation char from terminal 

- Release deferred echo mode 

Level Input Character Processing ** 

- Process received input characters 

- Process normal characters 

- Process control characters 

- Carriage-return processing 

- Line-feed processing 
processing 
processing 
processing 
processing 
processing 
processing 
processing 
processing 



GETCHR — 
GTCFCH — 
CFCHAR — 
CFTEST — 
CFSTOP — 
CFSTRT — 
CFPOP — 
LOGCHR — 
ILWAIT — 
DFRREL — 

** Fork 
TTINCP - 
REGCHR - 
DOCTRL — 
ICPCR - 
ICPLF - 
ICPCTC - 
ICPCTD - 
ICPCTG - 
ICPCTO - 
ICPCTR - 
ICPCTU - 
ICPCTX - 
ICPCTZ - 
ICPESC - 
ICPRUB - 
CKVTAC - 
CHKODT - 
INFIN - 
KILCHR - 
INCHR - 
STRCHR - 
STRACT - 
STRSNG - 



Control -C 

Control-D 

Control-G 

Control-O 

Control-R 

Control-U 

Control-X 

Control-Z 

Escape processing 

Rubout processing 

Check for VTxx escape-letter activation 

Check for ODT activation characters 

TT input wait completed 

Delete a character from input buffer 

Store and echo a character 

Store a character into TT buffer 

Store activation character 

Store char with single-character input 



TSTTY - 


- TSX 


Terminal 


Table a 


f con- 


bents 


73- 


1 


FETCHR 


74- 


1 


INSCHR 


75- 


1 


DELCHR 


76- 


i 


ECHO 


76- 


22 


ECOCTL 


76- 


45 


RBEND 


77- 


1 


SCACHK 


78- 


1 


SLCHK 


79- 


1 


SCACHR 


80- 


1 


CVTLC 


81- 


1 


SIGWAT 


81- 


42 


SIGBRK 
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Fetch next char from TT input ring buffer 

Insert character into TT input ring huffpr 

Delete character from TT input ring buffer 

Echo character to terminal 

Echo a control character 

Terminate rubout sequence 

Check for single-character activation 

Check for single line editor mode 

Handle single-character activation characters 

Convert lowei — case chars to upper-case 

Signal virtual line wait condition 

Signal program that Break character was received 
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000000 
000000 



100071 



TSTTY: 



. TITLE TSTTY — TSX Terminal I/O routines 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

. CSECT TSTTY 

. RAD50 /TTY/ ; Overlay region id 



TSTTY is the TSX module that contains routines related 

to doing I/O to the user's terminal. 

Copyright (c) 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987. 

S&H Computer Systems, Inc. Nashville, Tn. 

Macro calls 

. MCALL . READW, . PUR^E, . REOPEN, . WRITW 

Global definitions 

. GLOBL PUTCHR, BUFCHR 

. GLOBL DELCHR, CVTLC 

. GLOBL TTINCP, TSTTY, LOGCHR, LOGCR 

. GLOBL STRACT, PCSPND 

. GLOBL WRITTT, TTREAD, CSIMSG, ASKLIN 

. GLOBL PRINT, TTYOUT, TTYIN, SIGWAT, QUECHR, BUFCHR 

. GLOBL XHISET, XHIOUT, XHIIN, XTERCK, XRDTIM 

. GLOBL SETRBF, CMDB, CMDC, GTSPAC, CMDE, CMDF, CMDG, CMDH, CMDI 

. GLOBL CMDJ, CMDK, CMDL, CMDM, CMDN, CMDO, RSSPAC, SFWAC, CMDR 

. GLOBL CMOS, CMDT, CMDU, SFWL, CMDW, CMDX, CMDY, CMDZ, MAXCC 

Global references 

. GLOBL *AUTO, *RBRK, «RFRSH, LSW4, R*CFST, CFACFL, *SCCA, AF*CCA. AFCF 

. GLOBL SILFET, *SUSPN, WINPRT, fVBELL, LTTCR, TTCPL, AF*NPW, SUCF2 

. GLOBL *RTCS, AUTSPD, DOSWIT, VVPWCH, PRIVFO, PRIVSO, PRIVCO, PVNPW 

. GLOBL MXSPAC, LOTSIZ, LSTACT, SETERR, LSWll, *PWKEY, *NOWIN 

. GLOBL TRNSTR, GTSLCH, «SLON, *SLTTY, *V52EM 

. GLOBL *NOWTT, NOWAIT, FRKPRI, LSW7 

. GLOBL CFARG, DISSLE, *DBKMN, *CTRLD, CXTRMN 

. GLOBL LSW, LSW2, LSW3, LSW4, LSW5, LJSW, $NTGCC 

. GLOBL *DILUP, *DODFF, *DISCN, IN*ACT 

. GLOBL *DETCH, *CTRLC, *1ESC, *NDICP 

. GLOBL $SCOPE, *ECHO, CFHOLD, ILSW2, *CHACT 

. GLOBL $TAB, *FORM, *NOINT, LABTIM 

. GLOBL $LC, *NOVLN, *DEFER, $NOOUT, NEDCDI 

. GLOBL *NOIN, *TRNSP, LINSPC, QCOMPL 

. GLOBL *CTRLO, «RBOUT, *1STCH, *CTRLW 

. GLOBL *CTRLS, *DODFR, *GCECO, *GCESC 

. GLOBL *QUIET, *INKMN, *UCTLC, *SETCC, WLSCH 

. GLOBL «ODTMD, i^CFOPN. *CFALL, $GTLIN 

. GLOBL LSWIO, «SBIT, LWINDO, WINCHR 

. GLOBL LESCHR, LESRTN, LSNDCH 

. GLOBL *TTERR, *CFSOT, *HITTY, *FLAGC 

. GLOBL *1CTLC, *VTESC, HAZEL 

. GLOBL S**RUN, *DEBUG, *DBGBK 

. GLOBL «DEAD 



< 
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. GLOBL BKSPAC, CR, *UKMON 

. GLOBL «LOFCF, *SUCF. LSW9 

. GLOBL LNMAP, S*OTFN, ENQTL, STOP 

. GLOBL CORUSR, CFPNT, LACTIV> LINPNT 

. GLOBL LINEIMD, LINBUF> MXCPRM» PRMPNT, LSCCA 

GLOBL CURPRM, CFEND, CFCHAN, CFBUF, $SLINI 

GLOBL LNSPAC, LSPACT, CTRLZ. CTRLC, CTRLX 

GLOBL LINNXT 

GLOBL TAB, BKSPAC, RUBOUT, FORCEX, LINSIZ, LINCNT 

GLOBL BELL, LNPRIM, LF 

GLOBL TRNSFL, ESC, LTSCMD, VTSLCH, LCBIT 

GLOBL CFSPND, PR7, ACFLAG, LAFSIZ, INTPRI 

GLOBL INTPRI, PSW, DOSCHD, ESCFLG 

GLOBL INITFL, JSWLOC, STPFLG 

GLOBL LCOL, LOTSPC, LOTNXT, LOTEND, LOTBUF 

GLOBL S*OTWT, CHKABT 

GLOBL QNSPNX, QHDSPN 

GLOBL LOTPNT, FF 

GLOBL LSTATE, SPOTTY, *CCLRN, CFBLK, L INCUR 

GLOBL S*INWT 

GLOBL MAXSEC, LRBFIL, SPACE 

GLOBL LCBIT, INTPRI 

GLOBL LRDTIM, LRTCHR, LBRKCH 

GLOBL S*TTFN, VQUANl . *NOLF, S*TTSC 

GLOBL LBRKCQ, *DBGMD 

GLOBL LFWLIM 

GLOBL VT52, VTIOO, LTRMTP, VT2007, VT2008 

GLOBL UHIMEM, TTCSCH 

GLOBL *TAPE, *XSTOP, LSW6, KPAR6, LTTPAR, *CFABT 

GLOBL BRKPT, *CFDCC, *CFCCL, *CFKIL 

GLOBL GETUCH, PUTUCH, VALADB, EMTBLK, FAKCMP 

GLOBL CS*EOF, CFLAG, CTRLZ, *FORMO, FF, OVRHC 

GLOBL CHNADR, EMTPS, URO, GTLTTY, LJSW, SETC, EMTXIT 

GLOBL CFIND, R*INST, CFNEST, CFSP, LSTPRM 

GLOBL PBFEND, PRMBUF, CFLFL4, INITLN 

GLOBL VINTIO, LHIPCT 

GLOBL LOGBUF, LOGEND, LOGCHN, LOGBLK, ABORT, EMTADR 

GLOBL LOGPTR, LOGFLG, LF*WRT, LITIME, LF*IN, LF*OUT 



Macro definitions: 

. MACRO DISABL 

BIS #PR7, e#PSW 

. ENDM DISABL 

. MACRO ENABL 

BIC INTPRI, @#PSW 

. ENDM ENABL 



i DISABLE INTERRUPTS 



i ENABLE INTERRUPTS 



. MACRO OCALL ENTADD 

•IF B, ENTADD 

.ERROR ; OCALL without entry address 
. ENDC 

CALL OVRHC 

. WORD ENTADD 

. ENDM OCALL 



I 

4 
I 
C 
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000002 



000004 
000006 
000010 
000012 
000014 
000016 
000020 



000051 
000077 
000163 
000226 
000256 
000304 



The TTMAP and 
■fceTminal chsTS 
register are p 
UNMAP or UNMAP 
Rl must contai 
are being acce 
The difference 
macros is that 
used from with 
to be running 
The TTMAP and 
used in sectio 



TTMAPX ma 
cter buff 
ushed on 
X macros, 
n the lin 
ssed. 
betujeen 
the X-VB 
in interr 
on the sy 
UNMAP ver 
ns of cod 



cros are used to map kernel-mode par6 to the 
er 3TS3 The previous contents of par6 map 
the stack and may be restored by using the 

e index number of the line whose buffers 

the TTMAP -UNMAP macros and the TTMAPX -UNMAP X 

rsions are more efficient but may only be 

upt service routines where uie are guaranteed 

stem stack. 

sions of the macros must only be 

e where the interrupts are disabled. 



. MACRO TTMAPX 

MOV LTTPAR<R1),@#KPAR6 

. ENDM TTMAPX 



. MACRO UNMAP X 

. ENDM UNMAP X 

. MACRO TTMAP 

MOV e#KPAR6> MAPHLD 

MOV LTTPAR(Rl)>e#KPAR6 

. ENDM TTMAP 

. MACRO UNMAP 

MOV MAPHLD, @#KPAR6 

. ENDM UNMAP 



000000 



/CS.C 

000051 ' 
000077 ' 
000163' 
000226 ' 
000256 ' 
000304 ' 



Data areas 
MAPHLD: . WORD 

CSI table of error messages. 



; TEMP CELL USED BY TTMAP MACRO 



CSIERR: 



. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 



CSEMIL 
CSEMID 
CSEPRO 
CSEMFO 
CSEMNF 
CSEMIS 
CSEMIV 



CSI text messages/ 



077 
077 
077 
077 
077 
077 
077 



103 
103 
103 
103 
103 
103 
103 



123 
123 
123 
123 
123 
123 



CSEMIL 
CSEMID 
CSEPRO 
CSEMFO 
CSEMNF 
CSEMIS 
CSEMIV 



. NLIST BEX 

. ASCIZ /?CSI~F-Illeaal command/ 

. ASCIZ /?CSI-F-Illegal device/ 

.ASCIZ /?CSI-F-Protected file with same name already exists/ 

.ASCIZ /?CSI-F-Insuf f icient space for file/ 

ASCIZ /?CSI-F-Cannot find file/ 

.ASCIZ /?CSI-F-Invalid switch/ 

.ASCIZ /?CSI-F-Invalid switch value/ 

. LIST BEX 
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172 








173 








174 








175 


000340 


001 


002 




000343 


010 


020 




000346 


100 


200 


176 









; Bit mask table used to test, set* and clear the activation-character 
; flags for chAT>;ir tpT»c 

i 

004 BITMSK: .BYTE 1 , 2> 4, 10, 20, 40, 100, 200 
040 

. EVEN 
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i 
i 
i 
I 

I 

f 

I 
i 
i 
i 

i 
i 



1 

2 
3 








4 
5 








6 


000350 


013703 


000004G 


7 


000354 


010300 




8 


000356 


004737 


ooooooe 


9 


000362 


013704 


0000060 


10 


000366 


001454 




11 


000370 


006304 




12 


000372 


060400 




13 


000374 


005300 




14 


000376 


004737 


OOOOOOG 


15 


000402 


042777 


OOOOOOG OOOOOOG 


16 


000410 


005737 


000002G 


17 


000414 


001010 




18 


000416 


032761 


OOOOOOG OOOOOOG 


19 


000424 


001404 




20 


000426 


112700 


OOOOOOG 


21 
22 
23 
24 
25 


000432 


004737 


002662 ' 


000436 


032703 


000001 


26 
27 
28 


000442 


001430 










29 








30 


000444 


012702 


OOOOOOG 


31 








32 








33 


000450 


105737 


OOOOOOG 


34 


000454 


001410 




35 


000456 


004737 


OOOOOOG 


36 


000462 


016100 


OOOOOOG 


37 


000466 


004737 


OOOOOOG 


38 


000472 


004737 


OOOOOOG 


39 


000476 


005302 




40 


000500 


003761 




41 


000502 


004737 


OOOOOOG 


42 


000506 


005700 




43 


000510 


001402 




44 


000512 


004737 


002662 ' 


45 


000516 


077411 




46 


000520 


000137 


001004' 


47 








48 








49 








50 


000524 


013704 


000006G 


51 


000530 


012702 


OOOOOOG 


52 








53 








54 


000534 


105737 


OOOOOOG 


55 


000540 


001410 




56 


000542 


004737 


OOOOOOG 


57 


000546 


016100 


OOOOOOG 



. SBTTL WRITTT — . WRITE emt with terminal as output device 

WRITTT is executed when it is determined that the .WRITE emt is 
directed to the terminal device. 



WRITTT: MOV 
MOV 
CALL 
MOV 

ASL 

ADD 

DEC 

CALL 

BIC 

TST 

BNE 

BIT 

BEG 

MOVE 

CALL 



GET BUFFER ADDRESS 
VALIDATE BUFFER ADDRESS 

GET # WORDS TO WRITE 

BR IF NO WORDS TO BE WRITTEN 

CONVERT TO # BYTES 

GET ADDRESS OF END OF BUFFER 



EMTBLK+4, R3 

R3. RO 

VALADB 

EMTBLK+6, R4 

2$ 

R4 

R4, RO 

RO 

VALADB ; VALIDATE IT 

#CS*EOF, eCHNADR i RESET CHANNEL END OF FILE FLAG 

EMTBLK+2 ; WRITE TO BLOCK O? 

16* iBR IF NOT 

#*FORMO. LSW4<R1)jD0ES HE WANT FF ON WRITE OF BLK 0'? 

16* ;BR IF NOT 

#FF, RO ; OUTPUT FF TO GET TO TOP OF FORM 

PUTCHR 



Determine if buffer is on even byte boundary 



16*: 



BIT 
BEQ 



#1,R3 
9* 



; IS BUFFER STARTING ON EVEN BYTE BOUNDARY*? 
iBR IF YES 



i Use slow routine if buffer is on odd byte boundary 

17*: MOV #TTCSCH, R2 ; RESET CHARACTER COUNT 

; See if we need to interrupt tt output processing to do a job 

; scheduler cycle. 

IS JOB SCHEDULER CYCLE NEEDED? 

BR IF NOT 

SEE IF WE HAVE BEEN ABORTED 

GET JOB'S CURRENT EXECUTION STATE 

REQUEUE JOB AND CALL JOB SCHEDULER 

SEE IF WE WERE ABORTED WHILE ASLEEP 

4*: DEC R2 > TIME TO CHECK SCHEDULER? 

BR IF YES 

GET CHAR FROM USER'S BUFFER 
IS CHAR A NULL? 
SKIP NULLS 

PLACE IN USER'S BUFFER 
BR IF MORE CHARS TO DO 



1*: 
2*: 



TSTB 


DOSCHD 


BEQ 


4* 


CALL 


CHKABT 


MOV 


LSTATE<R1),R0 


CALL 


QNSPNX 


CALL 


CHKABT 


DEC 


R2 


BLE 


17* 


CALL 


GETUCH 


TST 


RO 


BEQ 


1* 


CALL 


PUTCHR 


SOB 


R4, 4* 


JMP 


TTFIN 



i Use faster routine if buffer is on even byte boundary 

i 

9*: MOV EMTBLK+6, R4 i GET NUMBER OF WORDS TO WRITE 
7*: MOV #TTCSCH, R2 i RESET CHAR COUNT FOR CONTINUATION 
i See if we need to interrupt tt output processing to do a job 
; scheduler cycle. 

IS JOB SCHEDULER CYCLE NEEDED? 

BR IF NOT 

SEE IF WE HAVE BEEN ABORTED 

GET JOB'S CURRENT EXECUTION STATE 



TSTB 


DOSCHD 


BEQ 


8* 


CALL 


CHKABT 


MOV 


LSTATE<R1),R0 



i 

I 

I 
i 
< 

i 
I 

4 
I 
I 



I 
i 
I 
i 
i 



i 

i 
I 
I 
€ 
i 
I 
I 
i 
4 

i 
I 
i 
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Page 



58 000552 
B9 OOnSRA 

60 000562 

61 000564 

62 000566 

63 000570 

64 000572 

65 000574 

66 000600 

67 000602 

68 000604 

69 000606 

70 000610 

71 000614 

72 000616 



004737 
n04737 
005302 
003761 
106523 
111600 
001402 
004737 
012600 
105000 
000300 
001402 
004737 
077416 
000137 



OOOOOOG 
OOOOOOG 



8*: 



002662 



5«: 



002662 ' 
001004' 



6*: 



CALL 


QNSPNX 


r.Ai 1 


CHKART 


DEC 


R2 


BLE 


7* 


MFPD 


(R3) + 


MOVE 


<SP),RO 


BEQ 


5* 


CALL 


PUTCHR 


MOV 


<SP)+, RO 


CLRB 


RO 


SWAB 


RO 


BEQ 


6* 


CALL 


PUTCHR 


SOB 


R4, 8* 


JMP 


TTFIN 



REQUEUE JOB AND CALL JOB SCHEDULER 

RFE IF WE WERE ABORTED WHILF ASLEEP 

TIME TO CHECK FOR SCHEDULER CYCLE? 

BR IF YES 

GET DATA WORD FROM USER'S BUFFER 

GET LOW-ORDER BYTE OF WORD 

IGNORE IT IF IT IS NULL 

SEND CHAR TO TERMINAL 

GET DATA WORD 

CLEAR LOW-ORDER BYTE 

GET HIGH-ORDER BYTE TO LOW-ORDER 

BR IF LOW-ORDER BYTE IS NULL 

SEND CHAR TO TERMINAL 

LOOP IF MORE WORDS TO WRITE 

FINISHED 
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1 

3 
4 
5 

6 000622 

7 000626 

8 000630 

9 000634 

10 000640 

11 000642 

12 000644 

13 000646 

14 000652 

15 000660 

16 000662 

17 000670 

18 000676 

19 000700 

20 000704 

21 000706 

22 000712 

23 000716 

24 000722 

25 000726 

26 000730 

27 000732 

28 000734 

29 000740 
30 

31 000742 

32 

33 000744 

34 

35 

36 

37 000752 

38 000754 

39 000756 

40 000760 

41 000764 

42 000766 

43 000772 

44 000774 

45 000776 

46 001002 
47 



013703 
010300 
004737 
013704 
006304 
060400 
005300 
004737 
032777 
001407 
042777 
052737 
000425 
005737 
001004 
112700 
004737 
004737 
120027 
001406 
105700 
001771 
004737 
077412 

000420 

052777 



005704 
001413 
010300 
163700 
001403 
032700 
001404 
005000 
004737 
077413 



. SBTTL TTREAD — .READ emt with input from terminal 

TTREAD is executed when a .READ was issued directing input 
from the terminal. 



0000040 

OOOOOOG 
000006G 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

000002G 

000136 
002662 ' 
005756 ' 
OOOOOOG 



OOOOOOG 



OOOOOOG 



000004G 
000777 

OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



TTREAD: MOV 
MOV 
CALL 
MOV 
ASL 
ADD 
DEC 
CALL 
BIT 
BEQ 
BIC 
BIS 
BR 

2*: TST 
BNE 
MOVB 
CALL 

1*: CALL 
CMPB 
BEQ 

4*: TSTB 
BEQ 
CALL 



EMTBLK+4, R3 

R3, RO 

VALADB 

EMTBLK+6, R4 

R4 

R4, RO 

RO 

VALADB 

#CS*EOF, eCHNADR 

2* 

#CS*EOF, eCHNADR 

#CFLAG, EMTPS 

TTZERO 

EMTBLK+2 

1* 

#'-^. RO 

PUTCHR 

GETCHR 

RO. #CTRLZ 

TTEOF 

RO 

1* 

PUTUCH 

R4, 1* 



GET BUFFER ADDRESS 
VALIDATE ADDRESS OF BUFFER 

GET # WORDS TO READ 

CONVERT TO # BYTES 

GET ADDRESS OF END OF BUFFER 

VALIDATE IT 

DID LAST READ GET END OF FILE? 

BRANCH IF NOT 

RESET END OF FILE FLAG 

SET C-BIT IN USER'S PS 

READ BLOCK 0? 

BRANCH IF NOT BLOCK 

PRINT PROMPT CHARACTER 

GET NEXT INPUT CHAR 
CTRL-Z ==> END OF FILE 
BRANCH IF END OF FILE 
IGNORE NULLS 

; MOVE CHAR TO USER'S BUFFER 
;BR IF MORE ROOM LEFT 



SOB 
i NORMAL END OF READ 

BR TTFIN 
; END OF FILE ON INPUT FROM TT: 
OOOOOOG TTEOF: BIS #CS*EOF, SCHNADR i REMEMBER END OF FILE HIT 



Hit end of file 



Fill remainder of buffer with nulls 



TTZERO: TST 
BEQ 



1*; 



2«: 



MOV 

SUB 

BEQ 

BIT 

BEQ 

CLR 

CALL 

SOB 



R4 

TTFIN 

R3. RO 

EMTBLK+4, RO 

2* 

#777, RO 

TTFIN 

RO 

PUTUCH 

R4, 1* 



ROOM LEFT IN BUFFER? 

BR IF NOT 

GET NEXT CHAR POSITION 

GET # CHARACTERS TRANSFERRED SO FAR 

BR IF HAVEN'T GOTTEN ANY CHARS AT ALL 

FILLED TO BLOCK BOUNDARY? 

BR IF YES 

STORE NULL TO FILL OUR BLOCK 

MOVE NULL TO USER'S BUFFER 

LOOP TO FILL REST OF USER'S BUFFER 



Fall into TTFIN 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 
TTREAD — . READ emt with input from terminal 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



FIWISHEn UITTW TT RPAn/URTTF 



001004 
001006 
001012 
001014 
001016 
001020 



001024 
001032 

001034 
001040 
001044 
001046 
001052 
001056 
001062 



010304 
163704 
006204 
103001 
005204 
010437 



023727 
101415 

004737 
105737 
001410 
004737 
016100 
004737 
004737 



TTFIN: 



000004G 



OOOOOOG 



2*: 



MOV 


R3, R4 


SUB 


EMTBLK+4, R4 


ASR 


R4 


BCC 


2* 


INC 


R4 


MOV 


R4, URO 



0000 100 000001 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



i GET CURRENT BUFFER POINTER 
; GET # BYTES TRANSFEREE 
i CONVERT TO # WORDS 
j BR IF NO ODD BYTE 

; RETURN # WORDS IN USER'S RO 

See if uiB need to call user's completion routine. 

CMP EMTBLK+10, #1 ; COMPLETION ROUTINE SPECIFIED? 

BLOS 1* ;BR IF NOT 

Enter a request to call user's completion routine. 

; QUEUE A COMPLETION REQUEST 

i IS JOB SCHEDULER CYCLE NEEDED? 

iBR IF NOT 

i SEE IF WE HAVE BEEN ABORTED 

J GET JOB'S CURRENT EXECUTION STATE 

i REQUEUE JOB AND CALL JOB SCHEDULER 

i SEE IF WE WERE ABORTED WHILE ASLEEP 



001066 000137 OOOOOOG 



CALL 


FAKCMP 


TSTB 


DOSCHD 


BEQ 


1* 


CALL 


CHKABT 


MOV 


LSTATE(R1),R0 


CALL 


QNSPNX 


CALL 


CHKABT 


i Finished 




1$: JMP 


EMTXIT 



I 
( 
i 
< 



TSTTY - 


- TSX Terminal I/O routi 


. PRINT 








1 
2 








3 








4 








5 


001072 


013702 


OOOOOOG 


6 


001076 


020237 


0000000 


7 


001102 


101403 




8 


001104 


010200 




9 


001106 


004737 


ooooooe 


10 


001112 


004737 


002460 ' 


11 


001116 


000137 


OOOOOOG 
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1*: 



. S0TTL 


. PRINT 


PROCESS THE 


.PRINT EMT 


NT: MOV 


URO, R2 


CMP 


R2, UHIMEM 


BLOS 


1* 


MOV 


R2, RO 


CALL 


VALADB 


CALL 


UOTSTR 


JMP 


EMTXIT 



GET ADDRESS OF STRING TO PRINT 

IS BUFFER ADDRESS IN NORMAL JOB REGION? 

BR IF YES 

VALIDATE ADDRESS OF BUFFER 

; PRINT THE STRING FROM USER'S BUFFER 



i 



TSTTY — 
. TTYOUT 
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1 

2 

3 

4 

5 001122 

6 

7 

8 

9 001122 
10 001130 
11 
12 
13 
14 

15 001132 

16 001140 

17 001142 

18 001150 
19 

20 
21 
22 

23 001152 

24 001156 

25 001162 

26 001166 
27 

28 
29 
30 

31 001170 

32 001172 
33 

34 
35 

36 001176 

37 001202 

38 001210 

39 001212 

40 001216 

41 001220 

42 001224 



026127 OOOOOOG 000010 
101022 



032761 OOOOOOG 

001416 

032761 OOOOOOG 

001412 



OOOOOOG 
OOOOOOG 



013700 OOOOOOG 

006560 000002 

022627 103776 
001403 



. SBTTL . TTYOUT 

Process the . TTYOUT EMT 

TTYOUT: 

See if output ring buffer is full 

CMP LOTSPCCRl)/ #8. J Is there plenty of free space in output buf? 
BHI 3* i Br if yes 

Output buffer is full. 

See if user wants to suspend job or have carry flag set on return 

BIT #NOWAIT, LJSW<R1); Did he request nouait TT I/O? 

BEQ 3* i Br if not 

BIT #*NOWTT, LSW5(Rl)j Did he enable no-wait TT I/O? 

BEQ 3* J Br if not 

Output buffer is full and user has enable no-wait mode. 
See if instruction following EMT 341 is a BCS .-2 

Get address of EMT 341 instruction 

Fetch following instruction 

BCS . -2 instruction? 

Br if yes — Don't return if he will spin 

Return with carry flag set^ and error code to signal that output 
buffer is full. 



005000 
000137 



013700 
032761 
001003 
004737 
000402 
004737 
000137 



OOOOOOG 



OOOOOOG 
OOOOOOG 

002662 ' 

003672 ' 
OOOOOOG 



MOV 


EMT ADR, RO 


MFPI 


2(R0) 


CMP 


<SP)+, #103776 


BEQ 


3$ 



CLR 

JMP 



RO 
SETERR 



i Return error code 



Transmit the character (wait if output buffer is full) 



3*: 



OOOOOOG 



1*: 
2*: 



MOV URO, RO 

BIT #*HITTY, LSW4<R1)- 

BNE 1* 

CALL PUTCHR 

BR 2* 

CALL HIPUT ;SEND CHAR IN HIGH EFFICIENCY MODE 

JMP EMTXIT 



GET THE CHAR TO SEND 

ARE WE IN HIGH EFFICIENCY MODE? 

BR IF YES 

SEND THE CHAR 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 
. TTYIN 
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€ 
€ 



001230 
001236 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 001240 

14 001244 

15 001246 

16 001252 

17 001254 

18 001262 

19 001264 

20 001272 

21 001276 

22 001304 
001312 
001314 
001322 
001324 

27 001332 

28 001334 

29 001342 

30 001346 
31 

32 
33 

34 001352 

35 001360 

36 001364 

37 001370 



. SBTTL . TTYIN 



23 
24 
25 
26 



032761 
001445 



005761 
001042 
004737 
103037 
032761 
001405 
052761 
004737 
042761 
032761 
001004 
032761 
001007 
032761 
001007 
052761 
004737 
000137 



042761 
004737 
010037 
000137 



Process the . TTINR EMT 



OOOOOOG OOOOOOG TTYIN: 



BIT #NOWAIT, LJSW(R1)J DID HE REQUEST NOWAIT 
BEQ 1* J BR IF NOT 



TTYINI 



User set JSW flag which says he wants the c-flag set and 
immediate return if there are no characters available. 
We uiill do this once only per end of input. 
See if any activation chars are pending. 



OOOOOOG 

007760 ' 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
011346' 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 4*: 
OOOOOOG 

OOOOOOG 

OOOOOOG 3*: 

OOOOOOG 

2*: 



Get 3 



OOOOOOG OOOOOOG 
005756' 
OOOOOOG 
OOOOOOG 



TST 


LACTIV<R1) 


BNE 


1* 


CALL 


CFTEST 


BCC 


1* 


BIT 


#*LOFCF, LSW9<R1) 


BEQ 


4* 


BIS 


#*DOOFF, LSW<R1) 


CALL 


STOP 


BIC 


#*NOIN, LSW3(R1) 


BIT 


#*DBGMD, LSW6<R1) 


BNE 


3* 


BIT 


#*NOWTT, LSW5<R1) 


BNE 


2* 


BIT 


#*FLAGC,LSW4<R1) 


BNE 


1$ 


BIS 


#*FLAGC,LSW4<R1) 


CALL 


DFRREL 


JMP 


SETC 


charac 


ter 


BIC 


#*FLAGC,LSW4<R1) 


CALL 


GETCHR 


MOV 


RO, URO 


JMP 


EMTXIT 



ANY ACTIVATION CHARS PENDING? 

BR IF YES 

IS INPUT COMING FROM A COMMAND FILE? 

BRANCH IF YES 

Are we processing a logoff command file? 

Br if not 

Force job logoff 

Stop job execution 

ALLOW TERMINAL INPUT TO OCCUR 

IS DEBUGGER DOING TERMINAL INPUT? 

BR IF YES — WAIT FOR ACTIVATION CHAR 

DID HE ENABLE NO-WAIT TT INPUT? 

IF YES THEN SIGNAL NO CHARS AVAILABLE 

HAVE WE ALREADY TOLD HIM ONCE? 

BR IF YES (WAIT FOR INPUT NOW) 

REMEMBER THAT WE HAVE TOLD HIM 

RELEASE DEFERRED ECHO MODE 

RETURN WITH C-FLAG SET 



; GO GET A CHARACTER 
; MOVE TO USER'S RO 



( 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 
High-efficiency TTY EMTb 
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f 
i 



1 
2 
3 
4 

5 001374 

6 001400 

7 001402 
e 001406 
9 001410 

10 001416 

11 

12 

13 

14 

15 001422 

16 001426 

17 001430 
IS 001434 

19 001440 

20 001442 

21 001450 

22 001452 

23 001456 

24 001462 

25 001464 

26 001466 

27 001472 

28 001476 

29 001500 
30 

31 
32 
33 

34 001502 

35 001506 

36 001510 

37 001514 

38 001520 

39 001522 

40 001524 

41 001530 

42 001534 

43 001540 

44 001544 

45 001550 

46 001554 
47 

48 001556 

49 

50 001560 

51 

52 

53 

54 

55 001562 

56 001566 

57 001570 



105737 
001403 
004737 
000403 
042761 
000137 



013703 
010300 
004737 
013704 
001766 
032761 
001406 
004737 
004737 
077405 
000754 
004737 
004737 
077405 
000746 



013703 
010300 
004737 
013704 
060400 
005300 
004737 
005037 
004737 
004737 
005237 
005761 
001720 

077412 

000417 



105737 
001405 
016137 



. SBTTL High-efficiency TTY EMTs 
TURN HIGH-EFFICIENCY TTY MODE ON OR OFF. 



OOOOOOG 
005374 ' 



XHISET: TSTB 
BEQ 
CALL 
BR 
OOOOOOe OOOOOOG l*: BIC 
OOOOOOG HIRTN: JMP 



EMTBLK 

1* 

HION 

HIRTN 

#*HITTY, LSW4(R1); TURN HIGH-EFFICIENCY MODE OFF 

EMTXIT 



J TURN MODE ON OR OFF? 

i BR TO TURN IF OFF 

; TURN ON HIGH-EFFICIENCY MODE 



HIGH-EFFICIENCY OUTPUT. 



000002G 

OOOOOOG 
000004G 

OOOOOOG OOOOOOG 

OOOOOOG 
003672 ' 



OOOOOOG 
002662 ' 



XHIOUT: 


MOV 


EMTBLK+2, R3 




MOV 


R3, RO 




CALL 


VALADB 




MOV 


EMTBLK+4, R4 




BEQ 


HIRTN 




BIT 


#*HITTY, LSW4<R1 




BEQ 


1* 


2*: 


CALL 


GETUCH 




CALL 


HIPUT 




SOB 


R4, 2* 




BR 


HIRTN 


1*: 


CALL 


GETUCH 




CALL 


PUTCHR 




SOB 


R4, 1* 




BR 


HIRTN 



. BUFFER ADDRESS 

; VALIDATE THE ADDRESS 

i # BYTES TO SEND 

; BR IF NO CHARACTERS TO SEND 

jARE we sending in HIGH EFFICIENCY MODE? 

;BR IF NOT 

;GET CHAR FROM USER'S BUFFER 

iSEND CHAR IN HIGH EFFICIENCY MODE 



;GET CHAR FROM USER'S BUFFER 
; SEND THE CHARACTER 



HIGH-EFFICIENCY TTY INPUT 



000002G 

OOOOOOG 
000004G 



OOOOOOG 
OOOOOOG 
005756' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



4*: 



1$: 



IN: MOV 


EMTBLK+2, R3 


MOV 


R3, RO 


CALL 


VALADB 


MOV 


EMTBLK+4, R4 


ADD 


R4, RO 


DEC 


RO 


CALL 


VALADB 


CLR 


URO 


CALL 


GETCHR 


CALL 


PUTUCH 


INC 


URO 


TST 


LACTIV(Rl) 


BEQ 


HIRTN 


NOT ACTIVATION CHARACTER 


SOB 


R4, 4* 


OVERFLOWED 


USER'S BUFFER. 


BR 


XTCC 



; ADDRESS OF USER'S BUFFER 
; VALIDATE THE ADDRESS 

iSIZE OF BUFFER 

} GET ADDRESS OF END OF BUFFER 

; VALIDATE THE ADDRESS 

i RETURN # CHARS GOTTEN IN RO 

; GET NEXT CHARACTER 

i MOVE CHAR TO USER'S BUFFER 

; COUNT CHARACTERS IN USER'S RO 

i ARE THERE ANY PENDING ACTIVATION CHARS? 

; WE ARE DONE IF NOT 
SEE IF BUFFER IS FULL. 

iLOOP IF ROOM LEFT IN BUFFER 
SET C-FLAG AND RETURN. 

i RETURN WITH C-FLAG SET 



CHECK FOR TT INPUT ERRORS. 



OOOOOOG 



XTERCK: TSTB 
BEQ 
OOOOOOG OOOOOOG MOV 



EMTBLK 

1* 

LINCNT<R1),UR0 



CHECK FOR ERRORS? 

BR IF YES 

PUT # OF INPUT CHARS PENDING IN USER'S RO 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 
High-efficiency TTY EMTb 



58 001576 

59 001602 

60 001610 

61 001612 

62 001620 
63 

64 

65 

66 

67 001624 

6S 001632 

69 001640 

70 001646 



000137 
032761 
001702 
042761 
000137 



OOOOOOG 

OOOOOOe OOOOOOG l*: 

ooooooe OOOOOOG 

OOOOOOG XTCC: 
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JMP EMTXIT 

BIT «*TTERR. I fiU4(Ri ); DID ANY TT INPUT ERRORS OCCUR? 

BEQ HIRTN ; BR IF NOT 

B I C #*TTERR , LSW4 ( R 1 ) i RESET ERROR FLAG 

JMP SETC ; RETURN WITH C-FLAG SET 



013761 
013761 
052761 
000137 



000002G 
000004G 
100000 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



START TIMER FOR TT READ REQUEST 

XRDTIM: MOV EMTBLK+2, LRDTIM<R1 ) ; SET 

MOV EMTBLK+4, LRTCHR<Ri)i SET 

BIS #100000. LRTCHR<R1) ; SET 

JMP EMTXIT 



TT READ TIMEOUT VALUE <0. 5 SEC UNITS) 
TT TIMEOUT ACTIVATION CHARACTER 
FLAG SAYING WE HAVE A TIME-OUT CHAR 



€ 
i 
€ 



TSTTY -- TSX Terminal 
ASKLIN — Accept line 



i 



I/O routi MACRO V05. 04 
from terminal 
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3 

4 

5 

6 

7 

8 

9 
10 
11 

12 001652 

13 001654 

14 001656 

15 001660 

16 001662 
17 

IS 
19 

20 001664 

21 001666 

22 001670 

23 001674 

24 001700 
25 

26 
27 
28 
29 

30 001706 

31 001714 

32 001716 

33 001724 
34 

35 
36 
37 
38 

39 001726 

40 001734 

41 001736 

42 001744 

43 001746 

44 001754 
45 

46 
47 

48 001760 

49 001764 

50 001770 
51 

52 
53 
54 
55 

56 001772 

57 002000 



010146 
010246 
010346 
010446 
010546 



010304 
010305 
062705 
113701 
052761 



032761 
001404 
032761 
001440 



032761 
001411 
032761 
001060 
042761 
004737 



005037 
004737 
103020 



. SBTTL ASKLIN 



Accept line from terminal 



ASKLIN is an internal subroutine called from .csispc* .csigen & .gtlin 
to print a prompt and accept a line of input from the tty or a 
command file. 

Inputs: 
R2 = Address of prompt string (in user's area). 
R3 = Address of buffer where accepted string is to be stored. 
(Must be in kernel space) 



ASKLIN: MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(SP) 
R3, -(SP) 
R4, -(SP) 
R5, -(SP) 



000120 
OOOOOOG 
OOOOOOG OOOOOOG 



MOV 


R3, R4 


MOV 


R3, R5 


ADD 


#80. , R5 


MOVE 


CORUSR^Rl 


BIS 


#*GTLIN, LSW4(R1) 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 
007262 ' 



Set up buffer pointer and buffer length info 

REMEMBER ADDRESS OF START OF BUFFER 
GET ADDRESS OF END OF RECEIVING BUFFER 
(GETLIN RESTRICTS BUFFER TO 81 CHARS) 
GET CURRENT USER INDEX # 
REMEMBER THAT . GTLIN IS BEING DONE 

Determine if we need to process a deferred control-C character 
that was previously acquired from an expanded CCL command by a 
non-terminating . GTLIN 

BIT #*CFDCC,LSW4(R1)jD0 WE HAVE A DEFERRED -^C? 

BE<3 10* ;BR IF NOT 

BIT #GTLTTY, LJSW(Rl); IS THIS A NON-TERMINATING .GTLIN? 

BEQ 11* iBR IF NOT — REPORT CONTROL-C NOW 

If this is a terminating .GTLIN and we pushed a control-C 
previously due to a non-terminating . GTLIN* halt the execution 
of the program without printing prompt. 

10*: BIT #*NTGCC, LSW9(Ri);Did we push a control-C? 

BEQ 20* i Br if not 

BIT #GTLTTY. LJSW(Rl)i Is this a non-terminating .GTLIN? 

BNE 15* i Br if non-terminating .GTLIN 

BIC #*NTGCC. LSW9(R1); Say ctrl-C not pushed 

CALL STOP i Stop program execution 

Determine if the input is coming from a command file 



20*: 
13*: 



CLR 

CALL 

BCC 



CFSPND 
GTCFCH 
8* 



> No suspended command file yet 

; TRY TO GET A CHAR FROM COMMAND FILE 

;BR IF GOT A CHAR FROM COMMAND FILE 



032761 
001471 



OOOOOOG OOOOOOG 



Input is not coming from a command file. 

See if we need to reenter Kmon to get next command from IND or 

from user command processor. 

BIT #*INKMN, LSW4(Rl)i ARE WE IN KMON NOW? 
BEQ 3* ;BR IF NOT 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 
ASKLIN — Accept line from terminal 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



002002 
002010 
002012 
002016 
002024 
002026 



002032 
002036 
002040 
002046 
002050 
002054 
002060 



002062 
002070 
002072 
002076 
002100 
002104 
002106 
002114 
002116 
002124 
002126 
002134 
002142 
002146 
002150 
002154 
002162 



002164 
002166 
002170 
002174 
002176 



032761 
001006 
013700 
132760 
001457 
004737 



120027 
001006 
032761 
001402 
1 1 2700 
120027 
001033 



032761 
001427 
004737 
103403 
120027 
001372 
032761 
001404 
052761 
000717 
052761 
013737 
004737 
000406 
1 1 0037 
032761 
001012 



005702 
001410 
005737 
001003 
042761 
004737 



0000000 OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 



11*: 
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BIT #*UKMON, LSW7<Rl)i IS USER COMMAND PROCESSOR ACTIVE? 

BWE 11* : RR IF YFfi — GFT COMMAND FROM IT 

MOV CXTRMN, RO i GET ADDR OF SIMULATED RMON DATA FOR JOB 

BITB #IN*ACT, R*INST(RO>; IS INPUT BEING PROVIDED BY IND? 

BEQ 3* }BR IF NOT 

CALL STOP ; REENTER KMON AND GET NEXT COMMAND FROM IND 



OOOOOOG 8*: 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



16* 



We got a character from a control file. 

See if character is a control-C or control-Z. 

Note: we treat ctrl-Z the same as ctrl-C if KMON is reading file. 

IS CHAR CTRL-Z? 

BR IF NOT 

IS KMON READING FILE? 

BR IF NOT 

TRANSLATE CTRL-Z TO CTRL-C 

IS CHAR CTRL-C? 

BR IF NOT -^C 



CMPB 


RO, #CTRLZ 


BNE 


16* 


BIT 


#*INKMN, LSW4<R1) 


BEQ 


16* 


MOVB 


#CTRLC, RO 


CMPB 


RO, #CTRLC 


BNE 


7* 


Character 


is control-C. 



f 
I 
I 
f 
< 
I 
I 



There are 3 cases to deal uiith: 

1. This is not a non-terminating . GTLIN. In this case we simply 
accept the ctrl-C which terminates the execution of the program. 

2. This is a non-terminating .GTLIN and we are getting characters 
from an expanded CCL command. In this case, we defer the ctrl-C 
processing until the next non-terminating .GTLIN is done. 

3. This is a non-terminating .GTLIN and we are not getting characters 
from an expanded CCL command. In this case we defer the ctrl-C 
and qet characters from the terminal. 



OOOOOOG OOOOOOG 

007262' 14*: 

OOOOOOG 

OOOOOOG OOOOOOG 15*: 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 12*: 
OOOOOOG OOOOOOG 
010016' 

OOOOOOG 7*: 

OOOOOOG OOOOOOG 



BIT #GTLTTY, LJSW(Ri 

BEQ 7* 

CALL GTCFCH 

BCS 15* 

CMPB RO, #LF 

BNE 14* 

BIT #*CFCCL, LSW4<R1 

BEQ 12* 

BIS #*CFDCC,LSW4(R1 

BR 13* 

BIS #*NTGCC , LSW9 < R 1 

MOV CFPNT, CFSPND 

CALL CFSTOP 

BR 3* 

MOVB RO, CFHOLD 

BIT #*QUIET, LSW4<R1 

BNE 1* 



List prompt string 



3*: 



OOOOOOG 

OOOOOOG OOOOOOG 
002460 ' 



21*: 



TST 


R2 


BEQ 


1* 


TST 


CFPNT 


BNE 


21* 


BIC 


#*CTRL 


CALL 


UOTSTR 



)i IS THIS A NON-TERMINATING .GTLIN? 
;BR IF NOT — GO TERMINATE PROGRAM 
iSKIP TO END OF LINE THAT HAS '^C 

i REACHED END OF LINE? 

iLOOP IF NOT 
); IS THIS THE END OF AN EXPANDED CCL COMMAND? 

; BR IF NOT 
>i REMEMBER WE HAVE A DEFERRED CONTROL-C 

iGO BACK AND GET NEXT CHAR FOLLOWING CONTROL-C 
>jPush a control-C for next .GTLIN 

; SAVE COMMAND FILE POINTER — Suspend file 

i Suspend command file input 

i PUSH COMMAND FILE CHAR 
)iARE WE LISTING THE COMMAND FILE? 
;BR IF NOT — DON'T LIST PROMPT THEN 



; Is there a prompt string to print? 

} Br if not 

; Is input coming from a command file? 

> Br if yes 



#*CTRL0,LSW3(Ri); Reset control-0 

/Print the prompt 



f 
( 
I 
I 
I 



TSTTY — 
ASKLIN - 

115 
116 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
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I 
I 



002210 
002214 
002216 
002224 
002230 
002236 
002242 
002244 
002250 
002252 
002256 
002262 
002264 
002266 
002270 
002272 
002276 
002300 
002306 
002310 
002314 
002316 
002320 



002322 
002326 
002330 
002334 
002340 
002346 
002350 
002352 
002354 
002356 
002360 



005737 
001003 
052761 
004737 
042761 
120027 
001424 
120027 
001005 
004737 
120027 
001373 
020305 
101350 
110023 
120027 
001344 
032761 
001740 
004737 
020304 
001734 
105043 



013700 
001404 
004737 
005037 
042761 
012605 
012604 
012603 
012602 
012601 
000207 



Get the innn-h 1in*» 



OOOOOOC 



1*: 



OOOOOOG OOOOOOG 
005756' 19«; 

OOOOOOG OOOOOOG 
OOOOOOG 



000041 

005756 ' 
OOOOOOG 



IS*: 



17*: 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



2*: 



TST CFPNT 

BNE 19* 

BIS #*CFABT, LSW6(R1 

CALL GETCHR 

B I C #*CFABT, LSW6 ( R 1 

CMPB RO, #LF 

BEQ 2* 

CMPB RO, #'! 

BNE 17* 

CALL GETCHR 

CMPB RO, #CR 

BNE 18* 

CMP R3, R5 

BHI 1* 

MOVB RO, (R3) + 

CMPB RO, #CTRLZ 

BNE 1* 

BIT #*INKMN, LSW4<R1 

BEQ 1* 

CALL STOP 

CMP R3, R4 

BEQ 1* 

CLRB -(R3) 



; Input coming from a command file? 

; Br if yes 
)i If ctrl-C received, abort command files 

i GET AN INPUT CHAR 
)j Clear command file abort flag 

; REACHED END OF LINE? 

; BR IF YES 

i START OF COMMENT? 

; BR IF NOT 

i SKIP OVER REST OF COMMENT 

LOOP TILL WE REACH END OF COMMENT 
ARE PAST THE END OF THE BUFFER? 
BR IF YES (DISCARD THE CHARACTER) 
MOVE CHAR TO BUFFER 
IS CHAR CTRL-Z? 
BR IF NOT 
); IS KMON DOING . GTLINE? 
BR IF NOT KMON 

TERMINATE PROGRAM IF CTRL-Z HIT 
IGNORE THE LF IF IT IS AT START OF LINE 

; REPLACE CR WITH NULL 



Finished getting input line 



OOOOOOG 

010042' 
OOOOOOG 
OOOOOOG OOOOOOG 5*: 



MOV CFSPND, RO 

BEQ 5* 

CALL CFSTRT 

CLR CFSPND 

BIC #*GTLIN, LSW4<R1>; SAY 

MOV (SP)+, R5 

MOV <SP)+, R4 

MOV (SP)+, R3 

MOV <SP)+. R2 

MOV (SP)+, Rl 

RETURN 



;GET ©FILE POINTER 

i BR IF NO NEED TO REPLACE 

; Restart command file input 

i SAY THERE IS NO SUSPENDED COMMAND FILE 



GTLIN EMT IS FINISHED 
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i 
i 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 



SBTTL OUTSTR — Print a system message on the user's console 



002362 010046 

002364 010146 

002366 010246 

002370 113701 0000000 

002374 112200 

002376 001406 

002400 120027 000200 

002404 001413 

002406 004737 002662 ' 

002412 000770 

002414 112700 000015 

002420 004737 002662 ' 

002424 112700 000012 

002430 004737 002662 ' 

002434 012602 

002436 012601 

002440 012600 

002442 000207 



002444 

002444 006302 

002446 016202 000004' 

002452 004737 002362 ' 

002456 000207 



OUTSTR is called to print a system message on the user's terminal. 
Inputs: 
R2 = Address of ASCIZ string to be printed (in kernel space). 



GET USER'S INDEX # 

GET NEXT CHAR OF MESSAGE 

BRANCH WHEN END HIT 

STOP WITHOUT CR-LF? 

BRANCH IF YES 

OUTPUT THE CHARACTER 

i PUT OUT CR-LF 



OUTSTR: 


MOV 


RO, -(SP) 




MOV 


R1,-(SP) 




MOV 


R2, -<SP) 




MOVB 


CORUSR, Rl 


1$: 


MOVE 


(R2)+, RO 




BEQ 


2* 




CMPB 


RO, #200 




BEQ 


9* 




CALL 


PUTCHR 




BR 


1* 


2*: 


MOVB 


#15, RO 




CALL 


PUTCHR 




MOVB 


#12, RO 




CALL 


PUTCHR 


9*: 


MOV 


<SP)+, R2 




MOV 


(SP)+, Rl 




MOV 


(SP)+, RO 




RETURN 





SBTTL CSIMSG 



Print a CSI asciz error message 



CSIMSG is called to print a CSI asciz error message on the user's 
terminal. 



Inputs: 
R2 = CSI error message code. 



CSIMSG: 



ASL 
MOV 
CALL 
RETURN 



R2 

CSIERR(R2),R2 

OUTSTR 



MULTIPLY BY TWO 

INDEX TO THE CORRECT ERROR STRING 

PRINT THE ERROR MESSAGE 

RETURN TO CONTINUE PROCESSING 
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1 

2 








3 








4 
5 








6 








7 








8 








9 


002460 


010046 




10 


002462 


010146 




11 


002464 


010246 




12 


002466 


010346 




13 


002470 


010446 




14 


002472 


012704 


0000000 


15 


002476 


113701 


0000000 


16 


002502 


012703 


000200 


17 


002506 


032702 


000001 


IS 


002512 


001420 




19 


002514 


005302 




20 


002516 


106522 




21 


002520 


000426 




22 








23 








24 








25 


002522 


012704 


ooooooe 


26 


002526 


105737 


OOOOOOG 


27 


002532 


001410 




28 


002534 


004737 


OOOOOOG 


29 


002540 


016100 


OOOOOOG 


30 


002544 


004737 


OOOOOOG 


31 


002550 


004737 


OOOOOOG 


32 


002554 


005304 




33 


002556 


003761 




34 


002560 


106522 




35 


002562 


111600 




36 


002564 


001417 




37 


002566 


120003 




38 


002570 


001413 




39 


002572 


004737 


002662 ' 


40 


002576 


012600 




41 


002600 


105000 




42 


002602 


000300 




43 


002604 


001410 




44 


002606 


120003 




45 


002610 


001416 




46 


002612 


004737 


002662 ' 


47 


002616 


000756 




48 


002620 


005726 




49 


002622 


000411 




50 


002624 


005726 




51 


002626 


1 1 2700 


000015 


52 


002632 


004737 


002662 ' 


53 


002636 


112700 


000012 


54 


002642 


004737 


002662 ' 


55 


002646 


012604 




56 


002650 


012603 




57 


002652 


012602 





. SBTTL UOTSTR — print an asciz user's message on the user's console 

UOTSTR is called to print an asciz message that is stored in the 
user's area. 



Inputs: 
R2 = Address 



of asciz string to be printed <in user's space). 



UOTSTR: MOV RO, -(SP) 

MOV R 1 , - < SP ) 

MOV R2, -<SP) 

MOV R3i-(SP) 

MOV R4, - < SP ) 

MOV #TTCSCH, R4 

MOVB CORUSR, Rl 

MOV #200, R3 

BIT #1,R2 

BEQ 3* 

DEC R2 

MFPD <R2)+ 

BR 4$ 



SET CHARACTER COUNTER FOR SCHEDULING CALL 

GET USER'S INDEX # 

GET CHAR USED TO STOP STRING WITHOUT CR-LF 

IS BUFFER ON EVEN OR ODD BYTE BOUNDARY? 

BR IF ON EVEN BYTE BOUNDARY 

POINT TO 1ST BYTE OF WORD 

GET WORD CONTAINING BYTE 



See if ufe need to interrupt output processing for a job scheduling cycle. 



1*: 



3*: 



4*: 



10*: 

5*: 
2*: 



9*: 



MOV #TTCSCH, R4 

TSTB DOSCHD 

BEQ 3* 

CALL CHKABT 

MOV LSTATE<R1),R0 

CALL QNSPNX 

CALL CHKABT 

DEC R4 

BLE 1* 

MFPD <R2)+ 

MOVB ( SP ) , RO 

BEQ 5* 

CMPB RO, R3 

BEQ 10* 

CALL PUTCHR 

MOV (SP)+, RO 

CLRB RO 

SWAB RO 

BEQ 2* 

CMPB RO, R3 

BEQ 9* 

CALL PUTCHR 

BR 3* 

TST (SP)+ 

BR 9* 

TST (SP)+ 

MOVB #15, RO 

CALL PUTCHR 

MOVB #12, RO 

CALL PUTCHR 

MOV (SP)+, R4 

MOV <SP)+, R3 

MOV (SP)+, R2 



RESET THE CHARACTER COUNT FOR SCHEDULING CALL 

IS JOB SCHEDULER CYCLE NEEDED? 

BR IF NOT 

SEE IF WE HAVE BEEN ABORTED 

GET JOB'S CURRENT EXECUTION STATE 

REQUEUE JOB AND CALL JOB SCHEDULER 

SEE IF WE WERE ABORTED WHILE ASLEEP 

TIME TO CHECK FOR SCHEDULER CYCLE? 

BR IF YES 

GET WORD WITH NEXT 2 BYTES OF STRING 

GET NEXT BYTE OF STRING 

BR IF NULL AT END OF STRING HIT 

IS CHAR #200? 

IF YES THEN END STRING WITHOUT CRLF 

SEND CHAR TO TERMINAL 

GET WORD WITH CHAR IN HIGH-ORDER BYTE 

CLEAR LOW-ORDER BYTE 

MOVE HIGH-ORDER BYTE TO LOW-ORDER 

BR IF NULL AT END OF STRING HIT 

IS THIS 200 AT END OF STRING? 

BR IF YES 

SEND CHAR TO TERMINAL 

GO SEND MORE CHARS 

CLEAN OFF STACK 

i CLEAN OFF STACK 
;PUT OUT CR-LF 
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58 002654 012601 

59 002656 012600 

60 002660 000207 



MOV 


<SP)+,R1 


MOV 


<SP) + . RO 


RETURN 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 

11 002662 
12 
13 
14 
15 

16 002662 

17 002670 
le 002672 
19 

20 
21 

22 002676 

23 002704 

24 002706 

25 002714 

26 002716 
27 

28 
29 

30 002722 

31 002726 

32 002734 

33 002736 
34 

35 
36 
37 

38 002742 

39 002750 

40 002752 

41 002756 
42 

43 

44 

45 002760 

46 

47 

48 

49 

50 002764 

51 002772 

52 002774 

53 003000 
54 

55 
56 
57 



. SBTTL 

SBTTi »» p-rng-ram I pv/pI nutniit ChflTi»r-hp-r Processing ** 
. SBTTL PUTCHR -- Send character to terminal 

PUTCHR is called to queue a character to be sent to a terminal. 

Inputs: 
RO = Character to be sent. 
Rl = Virtual line number. 



PUTCHR: 



032761 OOOOOOG OOOOOOG 

00 1 402 

000137 003672' 



032761 
001406 
032761 
001057 
004737 



042700 
032761 
001002 
042700 



OOOOOOC OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



177400 

OOOOOOG OOOOOOG 



1*: 



177600 



032761 
001403 
004737 
103436 



OOOOOOG OOOOOOG 
004052 ' 



110061 OOOOOOG 



032761 
001403 
052700 
000415 



OOOOOOG OOOOOOG 
OOOOOOG 



If line is in "high efficiency" mode, bypass a lot of normal 
processing and use the high efficiency version of PUTCHR. 

BIT #*HITTY, LSW4<Rl)i Is this line in high efficiency mode? 

BEQ 1* ; Br if not 

JMP HIPUT ;Use high efficiency version of PUTCHR 

Return immediately if the line has disconnected 

BIT #<:*DISCN!*CTRLC>, LSW(Rl) ; Has job disconnected? 

BEQ 2* iBr if not 

BIT #*NOIN, LSW3<R1) ; Are me doing logoff processing now? 

BNE 9* iBr if yes — return immediately from PUTCHR 

CALL STOP /Terminate execution of job and enter KMON 

Mask character to 7 or 8 bits depending on setting of EIGHTBIT option. 

2*: BIC #'^C<377>, RO ;Mask character to 8 bits 

BIT #*8BITi LSW2<R1 ) ils eightbit support option selected? 

BNE 8* iBr if yes 

BIC #'-C<177>» RO iMask character to 7 bits 

See if uie should suppress output from programs such as 

EDIT, TECO/ and DIBOL which try to echo characters themselves. 

8*: BIT #*NOOUT, LSW3(Rl)i Is output echo suppression in effect? 

BEQ 3* i Br if not 

CALL ESCHK i See if u»e should discard this character 

BCS 9* iBr if me should discard this character 

Remember the last character output to this line 

3$: MOVE RO, LSNDCH<R1 ) i Remember last character sent to line 

If character is being sent in transparent mode, set transparent 
flag for this character 

BIT #*TRNSP,LSW3(Rl)i Is line is transparency mode? 

BEQ 4* iBr if not 

BIS #TRNSFL, RO i Set transparency flag for this character 

BR 5$ 

Determine if this character is a leadin character or part of 
a lead-in function sequence. 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 



003002 005761 OOOOOOG 4$: 

003006 001403 

003010 004737 004250' 

003014 000417 

003016 120037 OOOOOOG 6*: 

003022 001004 

003024 012761 004304' OOOOOOG 

003032 000410 



; Are uie processing a lead-in function now? 
J Br if not 

; Process the lead-in function 
j Finished with character 
; Is this the lead-in character? 
i Br if not 
#GTCMli LTSCMD<R1 )i Say me are starting a lead-in function 

; Finished with character 

See if we should write this character to the terminal log file 



TST 


LTSCMD<R1) 


BEQ 


6« 


CALL 


LI FUN 


BR 


9* 


CMPB 


RO, VTSLCH 


BNE 


5* 


MOV 


#GTCM1,LTS 


BR 


9* 



003034 032737 OOOOOOG OOOOOOG 5*: 

003042 001402 

003044 004737 010714' 



BIT #LF«OUT, LOGFLG ; Are we logging output characters? 

BEQ 7* ;Br if not 

CALL LOOCHR 'Log this character 



We have done the highest level processing associated with 
PUTCHR. Now call PUTCHl to do the next level of processinj 



003050 004737 003056 ' 



003054 000207 



7*: CALL PUTCHl 

Finished 
9*: RETURN 



; Queue character for terminal 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



. SBTTL PUTCHl 



iueue character for terminal 



003056 



003056 032761 OOOOOOG OOOOOOG 
003064 001015 



003066 032761 OOOOOOG OOOOOOG 

003074 001403 

003076 005737 OOOOOOG 

003102 001006 



003104 032761 OOOOOOG OOOOOOG 1*: 
003112 001002 



PUTCHl is the second level of character queueing routines. 
Calling this routine rather than PUTCHR bypasses the following 
character processing operations: 

1. Stop the job if it is disconnected. 

2. Echo suppression. 

3. Transparent character flagging. 

4. TSX lead-in function processing. 

5. Terminal logging. 

Inputs: 
RO = Character to be queued for the terminal. 
Rl = Virtual line number of the terminal. 

PUTCHl: 

If this is a detached jobj discard its output 

BIT #*DETCH, LSW(Rl) i Is this a detached job? 

BNE 9* ;Br if yes — discard its output 

If iite are in a command file and program output is being suppressed^ 
discard this character. 

BIT #*CFSOT, LSW4<R1) J Should u»e suppress command file output? 

BEQ 1* ) Br if not 

TST CFPNT ; Is input coming from a command file? 

BNE 9* i Br if yes — discard this character 

If Control-0 has been typedi discard this character 

BIT #*CTRLO, LSW3<Rl)iHas ctrl-0 been typed? 

BNE 9* i Br if yes — discard this character 

We want to queue this character for the terminal. 
Call PUTCH2 to do the next level of processing 



003114 004737 003 1 22 ' 



003120 000207 



9*: 



CALL 
Finished 

RETURN 



PUTCH2 



i Queue character for the terminal 



« 



I 

i 
< 
i 
i 
I 
C 
( 
I 
€ 
i 
i 
i 



010246 



OOOOOOG 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 003122 
16 
17 
18 
19 

20 003124 

21 003130 
22 

23 
24 

25 003132 

26 003136 
27 

28 
29 
30 

31 003140 

32 003142 

33 003144 

34 003150 
35 

36 
37 
38 

39 003152 

40 003156 

41 003160 
42 

43 

44 

45 003164 

46 

47 

48 

49 003170 

50 003172 
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. SBTTL PUTCH2 — Queue character for a terminal 

PUTCH2 is the third level of character processing associated with 
PUTCHR. Calling PUTCH2 rather than PUTCHl bypasses the following 
character processing operations: 

1. Discarding output for detached jobs. 

2. Suppressing output while inside command file. 

3. Suppressing output if Control-0 typed. 

Inputs: 
RO = Character to be queued for the terminal. 
Rl = Virtual line index number. 



032700 
001015 



020027 
101005 



000037 



010002 
006302 
004772 
000407 



003174' 



120027 
001402 
105261 



OOOOOOG 
OOOOOOG 



004737 003462 ' 



012602 
000207 



PUTCH2: MOV 



R2, -<SP) 



If character is being sent in transparency mode, by pass 
keeping track of its position. 



BIT #TRNSFL, RO 
BNE 2$ 



i Is character in transparency mode? 
i Br if yes 



Determine if this is a regular or control character. 



3«: 



CMP 
BHI 



RO, #37 
1* 



; Is this a control character? 
i Br if not 



This is a control character. 

Call appropriate routine to process it. 



MOV 


RO, R2 


ASL 


R2 


CALL 


@PC2VEC(R2) 


BR 


9* 



; Get character 

; Convert character to word table index 

;Call processing routine 

;Finished with character 



This is a regular character. 
Keep track of cursor position. 



1*: 



CMPB 


RO, #RUBOUT 


BEQ 


2* 


INCB 


LCDLCRl) 



; Is this a rubout character? 

j Br if yes 

i Advance cursor column position 

Insert this character into the terminal buffer 

2*: CALL QUECHR ; Insert character into terminal buffer 

Finished 



9*: 



MOV <SP)+, R2 
RETURN 
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2 






3 






4 






5 






6 






7 






8 






9 






10 


003174 


003274 ' 


11 


003176 


003274 ' 


12 


003200 


003274 ' 


13 


003202 


003274 ' 


14 


003204 


003274 ' 


15 


003206 


003274 ' 


16 


003210 


003274 ' 


17 


003212 


003274 ' 


IS 


003214 


003302 ' 


19 


003216 


003334 ' 


20 


003220 


003274 ' 


21 


003222 


003274 ' 


22 


003224 


003420 ' 


23 


003226 


003322 ' 


24 


003230 


003274 ' 


25 


003232 


003274 ' 


26 


003234 


003274 ' 


27 


003236 


003274 ' 


28 


003240 


003274 ' 


29 


003242 


003274 ' 


30 


003244 


003274 ' 


31 


003246 


003274 ' 


32 


003250 


003274 ' 


33 


003252 


003274 ' 


34 


003254 


003274 ' 


35 


003256 


003274 ' 


36 


003260 


003274 ' 


37 


003262 


003274 ' 


38 


003264 


003274 ' 


39 


003266 


003274 ' 


40 


003270 


003274 ' 


41 


003272 


003274 ' 



Vector of addT^pi^iP? of rharptrter procpssing roiitines for 
control characters encountered by PUTCH2. 

On entry to the processing routine^ the folloiuing registers will 
be set up: 

RO = Character 

Rl = Virtual line number 



. WORD 


PCCINS 


. WORD 


FCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCBS 


. WORD 


PCCHT 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCFF 


. WORD 


PCCCR 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 


. WORD 


PCCINS 



00 


- NUL 


01 


- SOH 


02 


- STX 


03 


- ETX 


04 


~ EOT 


05 


- ENQ 


06 


- ACK 


07 


- BEL 


10 


- BS 


11 


- HT 


12 


- LF 


13 


- VT 


14 


- FF 


15 


- CR 


16 


- SO 


17 


- SI 


20 


- DLE 


21 


- DCl 


22 


- DC2 


23 


- DC3 


24 


- DC4 


25 


- NAK 


26 


- SYN 


27 


- ETB 


30 


- CAN 


31 


- EM 


32 


- SUB 


33 


- ESC 


34 


- FS 


35 


- GS 


36 


- RS 


37 


- US 



1 



i 
i 
i 
I 
i 
{ 
f 
I 

€ 

i 
i 
i 
i 

{ 
i 



TSTTY — TSX Terminal I/O routi 
PUTCH2 — Queue character for a 



1 
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terminal 



3 
4 
5 
6 
7 

8 003274 

9 003300 
10 

11 
12 

13 003302 

14 003306 

15 003310 

16 003314 

17 003320 
IS 



Processing routines for control characters sent to terminal +-.87*011311 
PUTCH2. 

Normal control character. 

Insert into terminal buffer but do not affect cursor position. 



19 
20 
21 



003322 



22 


003326 


23 


003332 


24 




25 




26 




27 


003334 


28 


003336 


29 


003342 


30 


003350 


31 


003352 


32 


003356 


33 


003362 


34 


003364 


35 


003370 


36 


003372 


37 


003374 


38 


003400 


39 


003404 


40 


003410 


41 


003414 


42 


003416 


43 




44 




45 




46 


003420 


47 


003426 


48 


003430 


49 


003432 


50 


003436 


51 


003442 


52 


003446 


53 


003450 


54 


003452 


55 


003454 


56 


003460 



004737 
000207 



105361 
002002 
105061 
004737 
000207 



105061 
004737 
000207 



010246 
116102 
032761 
001011 
112700 
004737 
005202 
032702 
001372 
000406 
004737 
062702 
042702 
110261 
012602 
000207 



032761 
001012 
010246 
012702 
112700 
004737 
077203 
012602 
000402 
004737 
000207 



00346J 



PCCINS: CALL QUECHR 
RETURN 



;Put char into terminal buffer 



Backspace — Backup cursor position 



0000000 

OOOOOOG 
003462 ' 



PCCBS: DECB 
BGE 
CLRB 

1*: CALL 

RETURN 



LCOL(Rl) 
1* 

LC0L<R1) 
QUECHR 



Carriage return 



OOOOOOG 
003462 ' 



PCCCR: 



Tab 
PCCHT: 



CLRB LC0L<R1) 
CALL QUECHR 
RETURN 



/Backup cursor position 

/Br if didn't go past front of line 

i Don't allow to go to left of line start 

; Queue the character 



i Say cursor is at left margin 
i Queue the character 



— Translate to spaces if tab simulation wanted 



OOOOOOG 
OOOOOOG 

000040 
003462 ' 

000007 



003462 ' 
000010 
000007 
OOOOOOG 



OOOOOOG 



2*: 



1*: 



9*: 



MOV R2, -<SP) 

MOVE LC0L<R1),R2 

BIT #*TAB,LSW2<R1> 

BNE 1* 

MOVB # ' , RO 

CALL QUECHR 

INC R2 

BIT #7, R2 

BNE 2* 

BR 9* 

CALL QUECHR 

ADD #8. , R2 

BIC #7, R2 

MOVB R2, LC0L<R1) 

MOV <SP)+, R2 

RETURN 



Get current column position 

Should we simulate tabs? 

Br if not 

Get space character 

Send a space 

Advance cursor position 

Are we up to next tab stop? 

Loop if not 

; Send the tab character to the terminal 
; Bound up to next tab stop 

i Save new cursor position 



Form feed — See if we should translate to spaces 



OOOOOOG OOOOOOG PCCFF: 



000010 
OOOOOOG 
003462 ' 



003462 ' 



1*: 



2*: 
9*: 



BIT 

BNE 

MOV 

MOV 

MOVB 

CALL 

SOB 

MOV 

BR 

CALL 

RETURN 



#*FORM, LSW2 < R 1 ) ; Should we simulate form-feeds? 



2* 

R2, -<SP) 

#8. , R2 

#LF, RO 

QUECHR 

R2, 1* 

(SP)+, R2 

9* 

QUECHR 



; Br if not 

/Put out 8 LF characters 
/Get line feed character 
/Send a line feed 
/Loop till all line feeds sent 



/Send FF character to terminal 



TSTTY — 
QUECHR - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 
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- Queue character for transmission 



003462 



003462 005761 OOOOOOG 

003466 001410 

003470 032761 OOOOOOG OOOOOOG 

003476 001004 

003500 

003506 103402 



003510 004737 003516' 



003514 000207 



. SBTTL QUECHR — Queue character for transmission 

QUECHR is called to queue a character for transmission. 

If the job has display windowing turned on> the character is passed 

to the window manager before being queued for transmission. 

Inputs: 
RO = Character to be queued. 
Rl = Virtual terminal number. 

QUECHR: 

See if display windowing is turned on for this line 

TST LWIND0<R1) » Is job doing display windowing? 

BEQ 1* i Br if not 

BIT #*N0WIN» LSWIKRI ); Are we suppressing windowing now? 

BNE 1* } Br if yes 

OCALL WINCHR ; Pass character to window manager 

BCS 9* ; Br if we should not display this char 

Queue the character for transmission 
1*: CALL BUFCHR > Queue character for transmission 

Finished 
9*: RETURN 



I 

I 
I 
I 



TSTTY -- 
BUFCHR - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Insert char or suspend if full 



. SBTTL BUFCHR 



Insert char or suspend if full 



003516 010246 



003520 



003526 026127 OOOOOOG 000010 

003534 101016 

003536 105737 OOOOOOG 

003542 001404 

003544 005761 OOOOOOG 

003550 003010 

003552 000442 



BUFCHR is called to queue a character for a terminal. 

If there is adequate space in the terminal output buffer the character 
is inserted. If there is not adequate space the job is suspended 
until space becomes available in the output terminal buffer. 

Inputs: 
RO = Character to be queued. 
Rl = Virtual terminal number. 

BUFCHR: MOV R2, -<SP) 

Disable interrupts 
1$: DISABL ; ** Disable ** 

See if there is room in the output buffer for the character 



CMP 

BHI 

TSTB 

BEQ 

TST 

BGT 

BR 



L0TSPC<R1), #a. ; Is there plenty of free space in buffer? 



2* 

FRKPRI 

3* 

LOTSPC(Rl) 

2* 

9* 



; Br if yes 

/Are we running at interrupt level? (echoing) 

i Br if not at interrupt level 

i Allow char echoing to use all of buffer 

; Br if buffer not completely full 

j Discard char if no space for echo 



003554 004737 005674' 

003560 032761 OOOOOOG OOOOOOG 

003566 001754 

003570 000433 



003572 005361 OOOOOOG 

003576 016102 OOOOOOG 

003602 

003616 110022 

003620 

003626 020261 OOOOOOG 

003632 103402 

003634 016102 OOOOOOG 

003640 010261 OOOOOOG 



003644 

003652 004777 OOOOOOG 

003656 000403 



Output buffer is full. 

Suspend job's execution and wait for buffer space to becom available. 

3$: CALL PCSPND ; Suspend execution of job #« Enable ** 

BIT #*CTRLO, LSW3(Rl)i Was Ctrl-0 typed while we were asleep? 

BEQ 1* iBr if not 

BR 9* i Discard character if ctrl-0 typed 

There is room for the character in the output buffer 
Insert character into the buffer 

Decrease free space count for buffer 

Get pointer to next free cell in buffer 

Map kernel PAR 6 to TT buffer 

Move character into TT buffer 

Remap kernel PAR 6 to job context block 

Did we move beyond end of buffer? 

Br if not 

Wrap around to front of buffer 

Save next-character pointer 

Start transmitter for this line 



2$: 



4*: 



DEC 


LOTSPC(Rl) 


MOV 


L0TNXT(R1).R2 


TTMAP 




MOVB 


RO, (R2) + 


UNMAP 




CMP 


R2, L0TEND<R1) 


BLO 


4S 


MOV 


L0TBUF(R1}>R2 


MOV 


R2, L0TNXT<R1) 



003660 



ENABL 

CALL 

BR 

Finished 

9*: ENABL 



©TRNSTR 
10* 



; ** Enable *# 

; Start transmitter for this line 



** Enable *# 



< 

I 

f 

1 

I 

f 

t 

< 

i 

i 

i 

I 

I 

I 

f 

i 

€ 
f 
I 
< 
I 



4 
4 
€ 
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BUFCHR — Insert char or suspend if full 

58 003666 012602 10*: MOV <BP)+, R2 

59 003670 000207 RFTURW 



TSTTY 
HIPUT 



TSX Terminal I/O routi MACRO V05. 04 Monday 25-Jan-88 08:31 Page 19 
- High efficiency PUTCHR 



. SBTTL HIPUT 



High efficiency PUTCHR 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 



HIPUT — Routine to move a character to the terminal output buffer 
and print it in high efficiency mode. 



Inputs: 
RO = Character to be sent. 
Rl = Virtual line number of job. 



003672 
003672 



HIPUT: ; 



010246 



OOOOOOG OOOOOOG 
OOOOOOC OOOOOOG 
OOOOOOG 

OOOOOOG 



003674 032761 

003702 001061 

003704 032761 

003712 001402 

003714 004737 



003720 005761 

003724 001404 
003726 

003734 103444 



003736 

003744 026127 OOOOOOG 000010 

003752 101003 

003754 004737 005674 ' 

003760 000766 



003762 005361 OOOOOOG 

003766 016102 OOOOOOG 

003772 

004006 110022 

004010 

004016 020261 OOOOOOG 

004022 103402 

004024 016102 OOOOOOG 

004030 010261 OOOOOOG 

004034 



00404« 



004777 OOOOOOG 



MOV R2, -(SP) 

If this is a detached job* discard its output 

BIT #*DETCH, LSW<R1) i Is this a detached job? 

BNE 9* i Br if yes — discard its output 

BIT #<*DISCN+*CTRLC+*DETCH>, LSW(Rl) j IS LINE DISCONNECTED? 

BEQ 1* iBR IF NOT 

CALL STOP iSTOP JOB 

See if display uiindoujing is turned on for this line 



1*: 



TST 
BEQ 
OCALL 
BCS 



LWIND0<R1) 
4* 

WINCHR 
9* 



i Is job doing display windowing? 

i Br if not 

iPass character to window manager 

; Br if we should not display this char 



4*: 



DISABL 




CMP 


L0TSPC(R1),#8 


BHI 


2* 


CALL 


PCSPND 


BR 


4* 



2$: 



004046 012602 
004050 000207 



See if there is room in the output buffer for this character 

** DISABLE #* 

ENOUGH SPACE IN OUTPUT BUFFER? 

BR IF PLENTY OF SPACE 

SUSPEND PROGRAM TILL SPACE IS AVAILABLE 

NOW GO TRY AGAIN 

Insert character into output buffer 

SAY LESS SPACE AVAILABLE IN BUFFER 
GET POINTER TO FREE CELL IN BUFFER 
MAP TO TT BUFFER AREA 
MOVE CHAR INTO TT BUFFER 

HAVE WE HIT THE END OF THE TT BUFFER? 
BR IF NOT 

WRAPAROUND TO FRONT OF BUFFER 
3*: MOV R2, L0TNXT(R1> i SAVE NEW BUFFER POINTER 

** ENABLE ** 

Try to start transmission to line 

CALL ©TRNSTR i TRY TO START TRANSMISSION TO LINE 

Finished 

9*: MOV (SP)+, R2 
RETURN 



DEC 


LOTSPC(Rl) J 


MOV 


L0TNXT<R1>,R2 


TTMAP 


i 


MOVE 


RO, <R2)+ i 


UNMAP 




CMP 


R2, L0TEND<R1) ; 


BLO 


3* i 


MOV 


L0TBUF<R1).R2 ; 


MOV 


R2, L0TNXT(R1> i 


ENABL 


i 
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ESCHK — Check for echo suppression restart 



f 



1 

2 
3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004052 



004052 000171 OOOOOOG 



004056 010046 

004060 020027 000141 

004064 103405 

004066 020027 000172 

004072 101002 

004074 162716 000040 

004100 122661 000000© 

004104 001445 

004106 000453 



004110 120061 OOOOOOG 

004114 001441 

004116 120027 000136 

004122 001441 

004124 126127 OOOOOOG 000136 

004132 001432 

004134 000440 



004136 120027 OOOOOOG 
004142 001431 
004144 120027 OOOOOOG 
004150 001423 
000431 



004154 120027 OOOOOOG 

004160 001417 

004162 120027 OOOOOOG 

004166 001417 

004170 000422 



. SBTTL ESCHK 



Check for echo suppression restart 



ESCHK is called from PUTCHR to determine if echo suppression 
that is currently in effect should be terminated. 

Inputs: 
RO = Current character being output. 
Rl = Virtual line number. 

Outputs: 
C~fiag set ==?^ Discard the character. 
RO = Character to output to terminal. 

ESCHK: 

Jump to appropriate restart routine based on echo suppression class 

JMP ©LESRTNCRl) ; Jump to echo suppression restart routine 

Restart after a normal character 
ESUAC 



1*: 



MOV 

CMP 

BLO 

CMP 

BHI 

SUB 

CMPB 

BEQ 

BR 



;PUSH CHARACTER BEING SENT 
; IS IT A LOWER CASE LETTER? 
iBR IF NOT 



RO, -<SP) 

RO, #141 

1* 

RO, #172 

1$ 

#40, (SP) ; CONVERT LOWER-CASE TO UPPER-CASE 

(SP)+, LESCHR<Rl)i IS CHAR BEING SENT SAME AS ECHO-SUPPRESSION CHAR-? 

ESRS2 i IF YES THEN RESTART WITH NEXT CHAR 

ESRSl ; IF NOT RESTART IMMEDIATELY 



J Restart output after control type activation chars <ctrl-x etc. ) 

i 

ESCTL: 



CMPB RO, LESCHR<R1) 

BEQ ESRS2 

CMPB RO, tt'-^ 

BEQ ESRTN 

CMPB LSNDCH<R1),#'-^ 

BEQ ESRS2 

BR ESRSl 



i CONTROL CHAR ECHOED BACK? 

; IF YES RESTART WITH NEXT CHAR 

i ECHO '^-CHAR? 

} IF YES WAIT FOR NEXT CHAR 

i WAS PREVIOUS CHAR •^? 

; IF YES, RESTART WITH NEXT CHAR 

i RESTART WITH THIS CHAR 



Restart output after cr or If 



ESCRLF: CMPB 


RO, #CR 


BEQ 


ESRTN 


CMPB 


RO, #LF 


BEQ 


ESRS2 


BR 


ESRSl 


f Restart aft 


er form feed 


ESFF: CMPB 


RO, #FF 



CMPB 


RO, #FF 


BEQ 


ESRS2 


CMPB 


RO, #LF 


BEQ 


ESRTN 


BR 


ESRSl 



IS THIS CHAR CR? 

YES — KEEP SKIPPING 

IS IT LF? 

YES — RESTART WITH NEXT CHAR. 

NOT CR OF LF. RESTART IMMEDIATELY 



;ECHO FORM FEED CHAR? 

i IF YES, RESTART WITH NEXT CHAR 

; IGNORE A STRING OF LP'S 



I 
I 



TSTTY — 
ESCHK - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
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- Check for echo suppression restart 



004172 120027 000044 
004176 001410 
004200 000416 



004202 120027 OOOOOOG 

004206 001404 

004210 120027 000040 

004214 001404 

004216 000407 



i Res 


tart aft 


er escape. 


* 

ESESC: 


CMPB 


RO, #'* 




BEQ 


ESRS2 




BR 


ESRSl 



; Restart after tab. 
ESHT: 



CMPB 


R0> #TAB 


BEQ 


ESRS2 


CMPB 


RO, #' 


BEQ 


ESRTN 


BR 


ESRSl 



; OK TO ECHO * TOO. 

; RESTART IMMEDIATELY. 



i ECHO TAB CHAR? 

i IF YES, RESTART WITH NEXT CHAR 

> IGNORE A STRING OF BLANKS 



Set output restart with next character. 



004220 042761 OOOOOOG OOOOOOG ESRS2: BIC 

004226 110061 OOOOOOG ESRTN: MOVB 

004232 000261 SEC 

004234 000404 BR 



#*N00UT,LSW3(Rl)i RESTART OUTPUT WITH NEXT CHAR 
RO, LSNDCH<R1) i REMEMBER LAST CHAR SENT 

;SAY TO DISCARD THIS CHARACTER 
ESXIT 



004236 042761 
004244 000241 
004246 000207 



i Restart output immediately with this character. 

i 

OOOOOOG OOOOOOG ESRSl: BIC #*NOOUT, LSW3<R1 )i SAY ECHO SUPPRESSION IS TURNED OFF 

CLC 'Say to restart immediately 

ESXIT: RETURN 



I 
I 
I 

4 



TSTTY — 


- TSX Terminal I 


/O routi 


LIFUN - 


-- Process lead- 


in funct 


1 

2 








3 








4 








5 








6 








7 








8 


004250 


010246 




9 


004252 


010346 




10 


004254 


010446 




11 


004256 


010546 




12 








13 








14 








15 


004260 


016102 


0000000 


16 


004264 


005061 


OOOOOOG 


17 


004270 


004712 




18 








19 








20 








21 


004272 


012605 




22 


004274 


012604 




23 


004276 


012603 




24 


004300 


012602 




25 


004302 


000207 




26 








27 








28 








29 








30 


004304 


162700 


000101 


31 


004310 


100406 




32 


004312 


020027 


000032 


33 


004316 


103003 




34 


004320 


006300 




35 


004322 


004770 


004330 ' 


36 








37 








38 








39 


004326 


000207 
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sequences 



. SBTTL LIFUN — Process lead-in function sequences 

LIFUN is called from PUTCHR to process TSX lead-in character sequences 

Inputs: 
RO = Current character 
Rl == Virtual line number 
LIFUN: MOV R2, -(SP) 
MOV R3, -<SP) 
MOV R4, -<SP) 
MOV R5, -<SP) 

Enter correct processing routine 

LTSCMD(R1 )» R2 ; Get address of correct processing routine 

; Say no processing routine pending now 
i Enter processing routine 



MOV 


LTSCMD(R 


CLR 


LTSCMD<R 


CALL 


(R2> 


Finished 




MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





Set letter after leadin character and identify command. 



GTCMl: 



SUB 


#'A, RO 


BMI 


9* 


CMP 


RO, #MAXCC 


BHIS 


9* 


ASL 


RO 


CALL 


@CCVECT<RO) 



CONVERT LETTER TO TABLE INDEX 

BR IF NOT LEGAL COMMAND 

SEE IF IN LEGAL RANGE 

BR IF TOO BIG 

MAKE INTO WORD TABLE INDEX 

ENTER PROCESSING ROUTINE 



Finished 
9*: RETURN 



I 

c 
I 

I 

4 
I 
< 
4 
i 

i 
4 
4 
t 
4 





TSTTY — 


- TSX Terminal I 




LI FUN - 
1 


— Process lead- 




2 
3 
4 


004330 


004414' 




5 


004332 


004432 ' 




6 


004334 


004442 ' 




7 


004336 


004452 ' 




8 


004340 


004702 ' 




9 


004342 


004712' 




10 


004344 


004722 ' 




11 


004346 


004724 ' 




12 


004350 


004734 ' 




13 


004352 


004764 ' 




14 


004354 


004774 ' 




15 


004356 


005004' 




16 


004360 


005022' 




17 


004362 


005032' 




IS 


004364 


005052' 




19 


004366 


005072' 




20 


004370 


005202' 




21 


004372 


005356 ' 




22 


004374 


005414' 




23 


004376 


005424' 




24 


004400 


005434 ' 


< 


25 


004402 


005444 ' 


26 


004404 


005634' 




27 


004406 


005644' 


( 


28 


004410 


005654' 


29 


004412 


005664' 




30 




000032 



I/O routi MACRO V05. 04 
function sequences 
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Define TSX command cont-rol characters 



CCVECT: . WORD CMDA 

. WORD CMDB 

. WORD CMDC 

. WORD CMDD 

. WORD CMDE 

. WORD CMDF 

. WORD CMDG 

. WORD CMDH 

. WORD CMDI 

. WORD CMDJ 

. WORD CMDK 

. WORD CMDL 

. WORD CMDM 

. WORD CMDN 

. WORD CMDO 

. WORD CMDP 

. WORD CMDQ 

. WORD CMDR 

. WORD CMDS 

. WORD CMDT 

. WORD CMDU 

. WORD CMDV 

. WORD CMDW 

. WORD CMDX 

. WORD CMDY 

. WORD CMDZ 

MAXCC = <. -CCVECT>/2 



SET RUBOUT FILLER CHARACTER 

ENABLE VT50 ESC -LETTER ACTIVATION 

DISABLE VT50 ESC -LETTER ACTIVATION 

DEFINE ACTIVATION CHARACTER 

TURN ON ECHO 

TURN OFF ECHO 

NOP 

DISABLE VIRTUAL LINES 

ENABLE LOWER CASE INPUT 

DISABLE LOWER CASE INPUT 

SET DEFERRED CHAR ECHO MODE 

SET IMMEDIATE CHAR ECHO MODE 

SET TRANSPARENCY MODE ON 

SUSPEND COMMAND FILE INPUT 

RESTART COMMAND FILE INPUT 

RESET USER ACTIVATION CHAR 

SET ACTIVATION ON FIELD WIDTH 

TURN ON HIGH-EFFICIENCY TTY MODE 

TURN ON SINGLE CHARACTER ACTIVATION MODE 

TURN OFF SINGLE CHARACTER ACTIVATION MODE 

ENABLE NON-WAIT TT INPUT 

SET FIELD WIDTH LIMIT 

TURN TAPE MODE ON 

TURN TAPE MODE OFF 

DISABLE AUTO LF ECHO 

ENABLE AUTO LF ECHO 

# COMMANDS 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 



Command - A 

The next char will be the rubout filler character. 



004414 012761 004424' OOOOOOG CMDA: 
004422 000207 



MOV #SETRBF, LTSCMD<R1); SET NEXT PROCESSING ROUTINE 
RETURN 



004424 110061 OOOOOOG 
004430 000207 



THIS CHAR IS THE RUBOUT FILLER CHARACTER. 

SETRBF: MOVE RO, LRBFIL(R1 ) J SET NEW RUBOUT FILLER CHARACTER 
RETURN 



Command - B 

Enable activation on vt50 escape-letter sequence. 



004432 052761 OOOOOOG OOOOOOG CMDB: 
004440 000207 



BIS #*VTESC.LSW5<R1); ENABLE THAT ACTIVATION SEQUENCE 
RETURN 



Command - C 

Disable activation on vt50 escape-letter sequence. 



004442 042761 OOOOOOG OOOOOOG CMDC; 
004450 000207 



BIC #*VTESC.LSW5<Rl)i DISABLE ACTIVATION CLASS 
RETURN 



I 

€ 

I 

I 

I 

I 

( 

i 

I 

\ 

I 

I 

4 

I 
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LI FUN 

1 
2 
3 
4 
5 
6 
7 
8 
9 
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f 

i 

I 



004452 
004460 



10 004462 

11 004464 

12 004466 

13 004470 

14 004476 

15 004500 

16 004504 

17 004510 
IS 004514 

19 004516 

20 004522 

21 004524 

22 004530 

23 004534 

24 004536 
25 

26 
27 
28 

29 004544 

30 004546 

31 004550 

32 004554 

33 004560 

34 004562 

35 004564 

36 004570 

37 004572 

38 004574 
39 

40 
41 
42 

43 004576 

44 004602 

45 004604 

46 004610 

47 004612 

48 004616 

49 004622 

50 004626 
51 

52 
53 
54 

55 004632 

56 004636 

57 004640 



010346 
010446 
010546 
032761 
001075 
004737 
016102 
020227 
103066 
066102 
110012 
005261 
120027 
001003 
052761 



005003 
010005 
016102 
020361 
103044 
010204 
004737 
005203 
120005 
001367 



032700 
001013 
052700 
010402 
004737 
005261 
005061 
005061 



Cnmmand — D 

Define additional activation character (which follows). 



012761 004462' OOOOOOG CMDD: 
000207 



MOV #GTSPAC,LTSCMD<Rl)i SET PROCESSING ROUTINE 
RETURN 



This character is a new activation character. 



GTSPAC: 



OOOOOOG OOOOOOG 

005120' 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



MOV 


R3, -<SP) 


MOV 


R4, -(SP) 


MOV 


R5, -(SP) 


BIT 


#*DETCH, LSW(Rl) 


BNE 


9* 


CALL 


DELUAC 


MOV 


LNSPAC(R1),R2 


CMP 


R2, #MXSPAC 


BHIS 


9* 


ADD 


LSPACT(R1),R2 


MOVE 


RO, (R2) 


INC 


LNSPAC(Rl) 


CMPB 


RO. #CTRLC 


BNE 


1* 


BIS 


#*UCTLC» LSW4(R1) 



OOOOOOG 
OOOOOOG 



016320' 



2*: 



OOOOOOG 

OOOOOOG 

016462' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



Is this a detached job? 

Br if yes — Ignore function 

DEL CHAR IF ALREADY IN TABLE 

GET # OF CHARS DEFINED SO FAR 

DEFINED ALL ALLOWED? 

CAN'T HAVE ANY MORE 

POINT TO FREE SPOT IN TABLE 

STORE AWAY CHARACTER 

SAY 1 MORE CHAR IN TABLE 

IS CTRL-C A SPECIAL ACTIV CHAR? 

BRANCH IF NOT CTRL-C 

REMEMBER SPECIAL CTRL-C 

If user typed ahead any of the characters that are being declared 
to be an activation char* mark them as activation chars. 

1*: CLR R3 ; Count chars in R3 

Carry new activation char in R5 

Get pointer to next char in TT buffer 

Any more chars to check? 

Br if not 

Save current character pointer 

Fetch a char from TT input buffer 

Count characters that we check 

Is this the activation char? 

Loop if not 

We found the activation char in the type-ahead characters. 
Mark it as an activation character. 

Is char already marked for activation? 

Br if yes 

Set activation-character flag 

Get back pointer to character 

Insert character in buffer 

Say another pending activation char 

Clear field width activation 

Clear field width limit 

If the activation character is a carriage-return* check the following 
character and delete it if it is a line-feed. 



CLR 


R3 


MOV 


R0*R5 


MOV 


LINPNT(R1),R2 


CMP 


R3, LINCNT(Rl) 


BHIS 


9* 


MOV 


R2, R4 


CALL 


FETCHR 


INC 


R3 


CMPB 


R0.R5 


BNE 


2* 



4*: 



BIT 


#ACFLAG> RO 


BNE 


3* 


BIS 


#ACFLAG* RO 


MOV 


R4, R2 


CALL 


INSCHR 


INC 


LACTIV(Rl) 


CLR 


LAFSIZ(Rl) 


CLR 


LFWLIM(Rl) 



120027 OOOOOOG 

001346 

020361 OOOOOOG 



3*: 



CMPB RO* #CR 

BNE 2* 

CMP R3*LINCNT(R1) 



; Is activation character a carriage-return? 

; Br if not 

/Any chars left in buffer? 



TSTTY — 


- TSX Terminal 1/0 routi 


LIFUN - 


— Process lead- 


■in funct 


58 


004644 


103012 




59 


004646 


010204 




60 


004650 


004737 


016320' 


61 


004654 


120027 


OOOOOOG 


62 


004660 


001335 




63 


004662 


010402 




64 


004664 


004737 


016612' 


65 


004670 


000731 




66 








67 








68 








69 


004672 


012605 




70 


004674 


012604 




71 


004676 


012603 




72 


004700 


000207 
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9*: 



BHIS 


9* 


MOV 


up. R4 


CALL 


FETCHR 


CMPB 


RO, #LF 


BNE 


2* 


MOV 


R4, R2 


CALL 


DELCHR 


BR 


2$ 


Finished 




MOV 


(SP)+,R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


RETURN 





; Br if not 

: Savi? po«iitinn of possible line feed 

; Fetch character that follows CR 

i Is that character a line feed? 

; Br if not 

;Oet back pointer to line feed 

^Delete the line feed 



i 

i 



i 
i 
i 

i 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 Monday 25-Jan-S8 08:31 
LIFUN — Process lead-in function sequences 



Page 25 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004702 
004710 



052761 
000207 



004712 
004720 



042761 
000207 



004722 000207 



004724 
004732 



052761 
000207 



004734 
004742 
004746 
004752 
004756 
004762 



052761 
106537 
052716 
011661 
106637 
000207 



004764 
004772 



042761 
000207 



004774 
005002 



052761 
000207 



005004 
005012 



042761 
042761 



Command - E 

Turn on character echoing. 



OOOOOOG OOOOOOG CMDE: 



BIS #*ECHO, LSW2(R1) ; ENABLE ECHOING 
RETURN 



Command - F 

Turn off character echoina. 



OOOOOOG OOOOOOG CMDF: 



BIC #*ECHD, LSW2<R1) i DISABLE ECHOING 
RETURN 



Command - G 
CMDG: RETURN 



Command - H 

Disable virtual lines. 



OOOOOOG OOOOOOG CMDH: 



BIS #*N0VLN,LSW2<Rl>i DISABLE VIRTUAL LINES 
RETURN 



Command - I 

Enable lower case input. 



OOOOOOG OOOOOOG CMDI: 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



BIS 

MFPD 

BIS 

MOV 

MTPD 

RETURN 



#*LC, LSW2(R1) 
e#JSWLOC 
#LCBIT, <SP) 
(SP),LJSW<R1) 
e#JSWLOC 



DO "SET TTY LC" 

GET USER'S JSW VALUE 

SET LOWER-CASE ENABLE FLAG 

SAVE JSW IN INTERNAL TABLE 

STORE BACK INTO USER'S AREA 



Command - J 

Disable lower case input. 



OOOOOOG OOOOOOG CMDJ: 



BIC #*LC,LSW2(R1 ) 
RETURN 



;D0 "SET TTY NOLC" 



Command - K 

Set deferred character echo mode. 



OOOOOOG OOOOOOG CMDK: 



BIS #«DEFER,LSW2(Rl)jSET DEFERRED ECHO FLAG 
RETURN 



Command ~ L 

Set immediate mode char echo. 



OOOOOOG OOOOOOG CMDL: BIC 
OOOOOOC OOOOOOG BIC 



#*DEFER, LSW2(R1 ) iEcho immediately from now on 
#<*DODFR.'*GCECO>. LSW3(R1 ) ; Say we are not now deferring 



I 
i 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



005020 000207 



RETURN 



Command - M 

Set output transparency mode 



005022 052761 0000000 OOOOOOG CMDM: 
005030 000207 



005032 
005036 
005040 
005044 
005050 



013702 
001404 
010237 
004737 
000207 



OOOOOOG 

OOOOOOG 
010016' 



005052 
005056 
005060 
005064 
005070 



013700 
001404 
004737 
005037 
000207 



OOOOOOG 

010042' 
OOOOOOG 



BIS #*TRNSP,LSW3(Rl)i TURN ON TRANSPARENCY MODE 
RETURN 



Command - N 

Suspend input from a control file 



CMDN: 



1*: 



MOV 


CFPNT, R2 


BEQ 


1$ 


MOV 


R2, CFSPND 


CALL 


CFSTOP 


RETURN 





IS A COMMAND FILE ACTIVE NOW? 

BR IF NOT 

SAVE POINTER 

Suspend command file input 



Command - 

Restart input from suspended command file 



CMDO: 



1*: 



MOV 


CFSPND, RO 


BEQ 


1* 


CALL 


CFSTRT 


CLR 


CFSPND 


RETURN 





; IS COMMAND FILE SUSPENDED? 

;BR IF NOT 

; Restart command file input 
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005072 
005100 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 005102 

11 005110 

12 005112 

13 005116 
14 

15 
16 
17 
18 

19 005120 

20 005122 

21 005124 

22 005130 

23 005132 

24 005136 

25 005140 

26 005142 
27 

28 005144 
29 

30 005146 

31 005152 

32 005154 

33 005160 

34 005164 

35 005166 

36 005174 

37 005176 

38 005200 



012761 
000207 



032761 
001002 
004737 
000207 



010246 
010346 
016102 
001421 
016103 
120023 
001402 
077203 

000413 

112363 
077203 
005361 
120027 
001003 
042761 
012603 
012602 
000207 



Command — P 

Reset user specified activation char. 



005102' OOOOOOG CMDP: 



MOV #RSSPAC, LTSCMD<R1); SET PROCESSING ROUTINE 
RETURN 



THIS CHAR IS THE CHAR TO RESET. 



OOOOOOS 
005120' 



OOOOOOG RSSP AC: BIT #*DETCH, LSW<R1 ) 

BNE 9* 

CALL DELUAC 
9*: RETURN 



Is this a detached job? 

Br if yes — Ignore function 

CALL SUBROUTINE TO DEL CHAR FROM TABLE 



OOOOOOG 
OOOOOOG 



177776 

OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



SUBROUTINE TO DELETE A USER-DEFINED ACTIVATION FROM THE TABLE 

OF ACTIVATION CHARACTERS. 

WHEN CALLED THE CHARACTER TO BE DELETED MUST BE IN RO. 



GET # OF USER ACTIVATION CHARS 

BR IF NONE TO RESET 

POINT TO START OF TABLE 

SEARCH FOR CHAR 

BR WHEN FOUND 

LOOP IF MORE TO CHECK 



MOVE BACK REST OF CHARS 

SAY ONE LESS CHAR TO ACTIVATE ON 

DE-ACTIVATING CTRL-C? 

BR IF NOT 

REMEMBER NO MORE CTRL-C 



DELUAC: 


MOV 


R2, -<SP) 






MOV 


R3, -<SP) 






MOV 


LNSPAC<R1),R2 






BEQ 


3* 






MOV 


LSPACT(R1),R3 


2«: 




CMPB 


RO, (R3) + 






BEQ 


1$ 






SOB 


R2>2* 


i 


COULDN'T FIND CHAR 






BR 


3* 


■> 


FOUND CHAR 




1*: 




MOVB 


(R3)+, -2<R3) 






SOB 


R2, 1* 






DEC 


LNSPAC(Rl) 






CMPB 


RO, #CTRLC 






BNE 


3* 






BIC 


#*UCTLC,LSW4(R1) 


3*: 




MOV 


(SP)+, R3 






MOV 


(SP>+, R2 






RETURN 





I 
I 

€ 



TSTTY — 


- TSX Te 


rminal I 


/O routi 


LIFUN - 

1 
2 

3 


— Process lead- 


in funct 








4 








5 


005202 


012761 


005212' 


6 
7 

a 


005210 


000207 










9 








10 


005212 


010246 




11 


005214 


010346 




12 


005216 


010446 




13 


005220 


032761 


OOOOOOG 


14 


005226 


001047 




15 


005230 


010003 




16 


005232 


004737 


007760 ' 


17 


005236 


103043 




IS 


005240 


004737 


017262' 


19 


005244 


103436 




20 


005246 


005761 


OOOOOOG 


21 


005252 


001035 




22 








23 








24 








25 








26 








27 


005254 


005703 




28 


005256 


001431 




29 


005260 


020361 


OOOOOOG 


30 


005264 


101026 




31 








32 








33 








34 








35 


005266 


016102 


OOOOOOG 


36 


005272 


010204 




37 


005274 


004737 


016320' 


38 


005300 


103422 




39 


005302 


032700 


OOOOOOG 


40 


005306 


001017 




41 


005310 


077310 




42 


005312 


052700 


OOOOOOG 


43 


005316 


010402 




44 


005320 


004737 


016462' 


45 


005324 


005261 


OOOOOOG 


46 


005330 


005061 


OOOOOOG 


47 


005334 


005061 


OOOOOOG 


48 


005340 


000402 




49 








50 








51 








52 








53 


005342 


010061 


OOOOOOG 


54 








55 








56 








57 


005346 


012604 
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Command — O 

Set field width as an activation condition 



OOOOOOG CMDQ: 



MOV #SFWAC,LTSCMD(Rl)iSET PROCESSING ROUTINE 
RETURN 



Interpret this char as value of field width 



SFWAC: 



MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




BIT 


#«DETCH, LSWiRl) 


Is 


BNE 


9* 


Br 


MOV 


RO, R3 


CA 


CALL 


CFTEST 


IN 


BCC 


9* 


BR 


CALL 


SLCHK 


IS 


BCS 


1* 


BR 


TST 


LACTIV(Rl) 


IS 


BNE 


9* 


IF 



this a detached job? 

if yes — Ignore function 
iRY FIELD WIDTH IN R3 
'UT COMING FROM COMMAND FILE? 

IF YES 

SINGLE LINE EDITOR IN CONTROL? 

IF YES — SET VALUE AND LET SL HANDLE IT 

ACTIVATION CHAR PENDING NOW? 

YES THEN IGNORE FIELD WIDTH 



No activation chars are pending and input is not 

coming from a command file. 

See if he has typed ahead enough to cause activation 



TST R3 

BEQ 1* 

CMP R3, LINCNT(Rl) 

BHI 1* 



IS HE RESETTING FIELD WIDTH ACTIVATION? 

BR IF YES 

REACHED ACTIVATION ALREADY? 

BR IF NOT 



User has typed ahead enough to fill this field. 
Set activation flag in last char in field. 



3«: 



MOV 


LINPNT(Rl) 


MOV 


R2*R4 


CALL 


FETCHR 


BCS 


9* 


BIT 


#ACFLAG. RO 


BNE 


9* 


SOB 


R3, 3« 


BIS 


#ACFLAG. RO 


MOV 


R4, R2 


CALL 


INSCHR 


INC 


LACTIV(Rl) 


CLR 


LAFSIZ(Rl) 


CLR 


LFWLIM(Rl) 


BR 


9* 



R< 



POINT TO 1ST CHAR PENDING 

SAVE POINTER TO NEXT CHAR 

FETCH THE NEXT INPUT CHARACTER 

STRANGE — NO MORE CHARS TO GET 

IS THIS CHAR ALREADY FLAGGED FOR ACTIVATION? 

BR IF YES 

LOOP TILL WE GET LAST CHAR IN FIELD 

SET ACTIVATION-CHARACTER FLAG FOR CHAR 

GET BACK POINTER TO CHAR POS IN BUFFER 

REINSERT CHARACTER INTO BUFFER 

SAY ONE MORE PENDING ACTIVATION CHAR 

SAY FIELD WIDTH ACTIVATION NOT IN EFFECT 

SAY NO FIELD WIDTH LIMIT 



User has not typed ahead entire field. 
Remember field size as activation condition. 



1*: MOV 
Finished 



9*: 



MOV 



RO, LAFSIZ(Rl) 



(SP)+>R4 



j REMEMBER FIELD SIZE 



i 
« 
I 
I 
I 
I 
« 
I 

4 
i 
€ 

i 
i 
i 

I 

4 
I 
4 

I 



i 

! 



€ 
€ 

€ 
i 
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58 005350 012603 MOV <SP)+, R3 

59 005352 012602 MOV <SP)+. R2 

60 005354 000207 RETURN 



€ 
I 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

20 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 



Command — R 

Turn on high-efficiency tty mode 



005356 032761 

005364 001002 

005366 004737 

005372 000207 



OOOOOOG 0000000 CMDR: 



005374' 



9$: 



BIT 
BNE 
CALL 
RETURN 



#*DETCH, LSW<R1) ; Is this a detached job? 



9* 
HION 



j Br if yes — Ignore function 
;TURN ON HIGH-EFFICIENCY MODE 



HION IS CALLED TO ENABLE HIGH-EFFICIENCY TTY MODE. 
IT IS CALLED FROM TSEMT AS WELL AS FROM TSEXEC. 
WHEN CALLED, THE LINE INDEX # MUST BE IN Rl. 



005374 032761 

005402 001003 

005404 052761 

005412 000207 



OOOOOOG OOOOOOG HION: 

OOOOOOG OOOOOOG 

1$: 



BIT #*DETCH, LSW<R1) i IS THIS A DETACHED JOB? 

BNE 1* ;BR IF YES (CAN'T USE THIS MODE) 

BIS #*H I TTY> LSW4<Rl)i ENABLE HIGH-EFFICIENCY MODE 

RETURN 



Command - S 

Turn on single character activation mode 



005414 052761 OOOOOOG OOOOOOG CMDS: 
005422 000207 



BIS #*CHACT, LSW5(R1);TURN ON SINGLE CHARACTER ACTIVATION 
RETURN 



Command - T 

Turn off single character activation mode 



005424 042761 OOOOOOG OOOOOOG CMDT: 
005432 000207 



BIC #*CHACT, LSW5<R1);TURN OFF SINGLE CHARACTER ACTIVATION 
RETURN 



Command - U 

Enable non-wait TT input <.TTINR) 



005434 052761 OOOOOOG OOOOOOG CMDU: 
005442 000207 



BIS #*N0WTT,LSW5(Rl)i ENABLE NON-WAIT TT INPUT 
RETURN 



4 
i 
i 

i 
i 
I 
I 

I 
€ 

I 

i 

i 
i 
i 
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005444 
005452 



005454 
005456 
005460 
005462 
005470 
005472 
005476 
005500 
005502 
005506 
005510 
005514 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 

26 005516 

27 005520 

28 005524 

29 005530 

30 005532 

31 005534 

32 005540 

33 005544 

34 005546 

35 005552 

36 005554 

37 005560 

38 005562 

39 005570 

40 005572 

41 005574 

42 005576 
43 

44 
45 

46 005600 

47 005602 

48 005606 
49 

50 005610 

51 005614 
52 

53 

54 

55 005620 

56 

57 



010346 
010446 
010546 
032761 
001055 
005061 
010004 
001451 
004737 
103046 
004737 
103441 



005003 
016102 
020361 
103033 
010205 
004737 
120027 
001427 
032700 
001024 
120027 
001004 
032761 
001015 
005203 
020304 
101752 



010502 
004737 
103375 

012700 
004737 



Command — V 

Set field width limit. 



012761 005454' OOOOOOG CMDV: 
000207 



MOV #SFWL, LTSCMD<R1);NEXT CHAR WILL BE FIELD WIDTH SIZE 
RETURN 



I 
I 
( 
f 



This character specifies the field size 



0000000 OOOOOOG 
OOOOOOG 

007760 ' 
017262' 



SFWL: 



this a detached job? 
if yes — Ignore function 
Initially clear field uidth 

SPECIFIED FIELD WIDTH ZERO? 
if yes 
1*: CALL CFTEST > IS INPUT COMING FROM A COMMAND FILE? 

IF YES 

SINGLE LINE EDITOR RUNNING? 
IF YES 

See if user typed ahead. 

Check size of field and discard any chars beyond end of specified size. 



MOV 


R3, -<SP) 




MOV 


R4, -(SP) 




MOV 


R5, -<SP) 




BIT 


#*DETCH, LSW(Rl) 


Is 


BNE 


9* 


Br 


CLR 


LFWLIM<R1) 


In 


MOV 


RO, R4 


IS 


BEQ 


9* 


Br 


CALL 


CFTEST 


IS 


BCC 


9* 


BR 


CALL 


SLCHK 


IS 


BCS 


6$ 


BR 



OOOOOOG 
OOOOOOG 



016320' 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 



14*: CLR R3 

MOV LINPNT<R1), R2 

5«: CMP R3, LINCNT<R1) 

BHIS 6* 

MOV R2, R5 

CALL FETCHR 

CMPB RO. #CR 

BEQ 9* 

BIT #ACFLAG. RO 

BNE 9* 

CMPB RO, #ESCFLG 

BNE 2* 

BIT #*VTESC>LSW5(R1) 

BNE 9* 

INC R3 

CMP R3, R4 

BLOS 5* 



2*: 



COUNT TOTAL CHARACTERS IN R3 

GET POINTER TO NEXT CHAR IN BUFFER 

HAVE WE CHECKED ALL CHARS IN TT BUFFER? 

BR IF YES ~ NO OVERFLOW HAS OCCURRED VET 

SAVE POINTER TO NEXT CHAR 

GET NEXT CHAR FROM TT INPUT BUFFER 

IS THIS CHAR CARRIAGE-RETURN? 

BR IF YES — THIS ENDS THE FIELD 

IS THIS CHAR AN ACTIVATION CHAR? 

BR IF YES — FIELD TERMINATED WITHOUT OVRFLOW 

IS THIS CHAR PART OF VTIOO ESCAPE SEQ? 

BR IF NOT 

ARE WE ACTIVATING ON VTIOO ESC SEQUENCES? 

BR IF YES — FIELD WIDTH OK 

COUNT TOTAL # CHARS IN FIELD 

DOES THIS CHAR OVERFLOW THE FIELD? 

BR IF NOT 



016612' 



OOOOOOG 
003462 ' 



Field overflow. Discard all chars typed beyond end of field. 

MOV R5, R2 i POINT TO CHAR THAT OVERFLOWED FIELD 

10*: CALL DELCHR i DELETE ALL CHARS THAT ARE BEYOND FIELD END 

BCC 10* iLOOP IF MORE CHARS TO DELETE 

; Ring bell to signal user that field overflowed. 

MOV #BELL, RO ; GET BELL CHARACTER 

CALL QUECHR i END TO TERMINAL 



010461 OOOOOOG 



Field did not overflow 
6*: MOV R4, LFWLIM<R1) 
i Finished 



SET FIELD WIDTH LIMIT FOR THIS FIELD 



( 

4 
I 
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58 

59 005624 

60 005626 

61 005630 

62 005632 



012605 
012604 
012603 
000207 



9$: 



MHV 


(BP^-*-.- R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


RETURN 





I 
I 
I 
I 



f 

€ 



i 
f 
I 

c 

4 
I 
€ 
I 
i 

i 
4 
4 
i 
4 
4 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 



Command - \4 

Turn "paper-tape" mode on. 

005634 052761 OOOOOOG OOOOOOG CMDW: BIS #*TAPE. LSW2<R1 > ; TURN TAPE MODE ON 
005642 000207 RETURN 



Command - X 

Turn "papei — tape" mode off. 



005644 042761 OOOOOOG OOOOOOG CMDX: 
005652 000207 



BIC #*TAPE, LSW2<R1) i TURN TAPE MODE OFF 
RETURN 



Command - Y 

Disable echoing of line-feed following carriage-return 



005654 052761 OOOOOOG OOOOOOG CMDY: 
005662 000207 



BIS #*NOLF. LSW6<R1) ; DISABLE AUTO LINE-FEED ECHO 
RETURN 



Command - Z 

Enable echoing of line-feed following carriage-return 



005664 042761 OOOOOOG OOOOOOG CMDZ: 
005672 000207 



BIC #*NOLF, LSW6<R1) J REENABLE AUTO LINE-FEED ECHO 
RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 



005674 
005676 
005702 
005706 
005712 
005716 

17 005720 

IS 

19 

20 

21 

23 
24 
25 
26 
27 

28 005722 

29 005730 

30 005734 

31 005736 

32 005742 



010046 
004737 
012700 
004737 
004737 
012600 
000207 



005761 
001402 
004737 
000207 



PCSPND is called to sti«;npnd execution of the current job because 
the terminal output buffer is full. 

Inputs: 
Rl = Job index number. 

Outputs: 

All registers are preserved. 



017474' 
OOOOOOG 
OOOOOOG 

ooooooe 



PCSPND; 


MOV 


RO, -(SP) 




CALL 


SIGWAT 




MOV 


#S*OTWT, RO 




CALL 


QHDSPN 




CALL 


CHKABT 




MOV 


<SP)+, RO 




RETURN 





SIGNAL JOB WAIT 

CHANGE JOB STATE TO WAITING-FOR-OUTPUT-SPACE 

CHANGE STATE AND SUSPEND THE JOB 

SEE IF WE WERE ABORTED WHILE ASLEEP 



OOOOOOG 

003462 ' 



TRYCHR is similar to PUTCHR except if the user's 

output buffer is full TRYCHR simply returns 

and does not halt execution. 

TRYCHR also does not give special treatment to 

such chars as form feed* backspace* etc. 

when called rO must contain the character to be 

sent and rl must contain the virtual line index #. 

all registers are preserved. 



** DISABLE ** 

IS THERE ROOM FOR THE CHAR? 

BR IF NOT 

PUT CHARACTER INTO BUFFER 



TRYCHR: 


DISABL 






TST 


LOTSPC(Rl) 




BEQ 


9* 




CALL 


QUECHR 


9$: 


RETURN 
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1 ; 

2 i OTREGO IS CALLED TO RESTART A USER WHO TR RtJRPFNnED 

3 ; WAITING FOR SPACE IN THE OUTPUT BUFFER. 

4 i WHEN CALLED THE USER NUMBER MUST BE IN Rl. 

5 ; 

6 005744 012700 OOOOOOG OTREGO: MOV #S*OTFN, RO J PUT USER IN OUTPUT-NEEDED QUEUE 

7 005750 004737 OOOOOOG CALL ENQTL 

8 005754 000207 RETURN 



TSTTY 
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1 
2 
3 
4 
5 
6 
7 
8 
9 

10 005756 

11 005760 

12 005762 

13 005766 

14 005774 

15 006002 

16 006004 
17 

18 
19 

20 006010 

21 006014 

22 006016 
23 

24 
25 
26 

27 006022 

28 006030 

29 006032 

30 006040 
31 

32 
33 

34 006044 

35 006052 

36 006054 

37 006062 
38 

39 
40 

41 006066 

42 006074 

43 006076 

44 006104 

45 006106 

46 006114 

47 006116 

48 006124 

49 006126 

50 006134 

51 006136 

52 006144 

53 006146 

54 006154 
55 

56 
57 



. SBTTL 

RBTTL *» P-rnn'T-'ifi* I *»v«al Input ChftT^ct^r Pirnrpcejrig ** 
. SBTTL GETCHR — Oet next input char 

GETCHR — ROUTINE TO MOVE THE NEXT CHARACTER FROM THE 
INPUT BUFFER TO RO. 

IF NO CHARACTERS ARE AVAILABLE THE USER IS SUSPENDED 
UNTIL A RECORD IS RECEIVED. 



010146 
010246 
113701 
042761 
032761 
001402 
004737 



004737 
103402 
000137 



0000000 

OOOOOOG OOOOOOG 
OOOOOOC OOOOOOG 

OOOOOOG 



007262 ' 
006356 ' 



GETCHR: MOV 
MOV 
MOVB 
BIC 

GCHl: BIT 
BEG 
CALL 



Rl, -(SP) 

R2, -<SP) 

C0RUSR,R1 J GET USER'S INDEX # 

#*GCESC,LSW3<R1)J WE'RE NOT PROCESSING VT50 ESC SEQUENCE 

#<:*DISCN+*CTRLC>,LSW<R1); DISCONNECT OR CTRL-C? 

8* ; BRANCH IF NEITHER 

STOP ; STOP PROGRAM IF EITHER 



See if input is coming from a command file or from the terminal. 

8*: CALL GTCFCH ; TRY TO GET A CHARACTER FROM A COMMAND FILE 

BR IF DID NOT GET ONE 
PROCESS CHAR FROM COMMAND FILE 

We did not get a character from a command file. 

If we are processing a logoff command file* finish the logoff now. 



CALL 


GTCFCH 


BCS 


15* 


JMP 


GCCKES 



032761 
001405 
052761 
004737 



032761 
001405 
052761 
004737 



032761 
001031 
032761 
001425 
032761 
001021 
032761 
001015 
032761 
001004 
032761 
001405 



OOOOOOG OOOOOOG 15*: 

OOOOOOG OOOOOOG 
OOOOOOG 



BIT #*LOFCF> LSW9<R1 )i Are we processing a logoff command file? 

BEQ 13* i Br if not 

BIS #*DOOFF, LSW<R1) i Force job logoff 

CALL STOP 



If this is a detached job> halt its execution if command file finished 



OOOOOOG OOOOOOG 13*: 

OOOOOOG OOOOOOG 
OOOOOOG 



BIT #*DETCH, LSW(Rl) i Is this a detached job? 

BEQ 16* i Br if not 

BIS #*DISCN, LSW(Rl) ; Force job logoff 

CALL STOP iHalt detached jobs that want terminal input 



OOOOOOC 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000137 006774 



See if u>e should get a character from the single line editor. 

OOOOOOG 16*: BIT #<SPCTTY.'DISSLE>, LJSW<R1 )i Spec ial TTY mode or SL disabled? 

BNE 11* ; Br if yes — don't use SL 

OOOOOOG BIT #*SLON, LSW7(R1) i Is SL enabled for this line? 

BEQ 11* iBr if not 

OOOOOOG BIT #<*ODTMDf*HlTTY>, LSW4(R1); Are we in ODT or high efficiency? 

BNE 11* ;Br if yes 

OOOOOOG BIT #*VTESC,LSW5<Rl)i VTxxx activation enabled? 

BNE 11* iBr if yes 

OOOOOOG BIT #*GTLIN»LSW4(R1); Is a . GTLIN being done? 

BNE 12* i Br if yes 

OOOOOOG BIT #*SLTTY, LSW7<R1); Is SL enabled for TTY input? 

BEQ 11* ;Br if not 

12*: OCALL GTSLCH i Get character from single line editor 

JMP GCEXIT ;Exit from GETCHR 

Get character from the terminal. 
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I 



58 


006160 


032761 


OOOOOOG 


OOOOOOG 


59 


006166 


001006 






60 


006170 


013761 


OOOOOOG 


OOOOOOG 


61 


006176 


013761 


OOOOOOG 


OOOOOOG 


62 


006204 


005761 


OOOOOOG 




63 


006210 


001003 






64 


006212 


004737 


011156' 




65 


006216 


000666 






66 


006220 


016102 


OOOOOOG 




67 


006224 


004737 


016612' 




68 


006230 


103661 






69 


006232 


005061 


OOOOOOG 




70 










71 










72 










73 


006236 


032761 


OOOOOOG 


OOOOOOG 


74 


006244 


001415 






75 


006246 


032761 


OOOOOOG 


OOOOOOG 


76 


006254 


001411 






77 


006256 


004737 


017422' 




78 


006262 


032700 


OOOOOOG 




79 


006266 


001402 






80 


006270 


000137 


006526 ' 




81 
82 
83 


006274 


000137 


006572' 












84 










85 


006300 


032761 


OOOOOOG 


OOOOOOG 


86 


006306 


001402 






87 










88 










89 










90 


006310 


000137 


006732 ' 




91 










92 










93 










94 










95 


006314 


032761 


OOOOOOG 


OOOOOOG 


96 


006322 


001402 






97 


006324 


000137 


006512' 




98 


006330 


120027 


OOOOOOG 




99 


006334 


001010 






100 


006336 


032761 


OOOOOOG 


OOOOOOG 


101 


006344 


001404 






102 


006346 


052761 


OOOOOOG 


OOOOOOG 


103 


006354 


000721 







11*: 



14*: 



9*: 



BIT 

BNE 

MOV 

MOV 

TST 

BNE 

CALL 

BR 

MOV 

CALL 

BCS 

CLR 



#*NOINT* LSW7<R1 )/ Does user want non-interactive execution? 
144 J Br if yes 

VINTIO,LHIPCT(Rl);Reset''interactive I/O limit for job 
VQUANli LITIME(Rl)i Reset interactive CPU time limit 



LACTIV<R1) 

9* 

ILWAIT 

GCHl 

LINPNT(R1).R2 

DELCHR 

GCHl 

LRTCHR<R1) 



Any activation chars pending? 

Branch if yes 

Wait for activation 

Go try again 

Get pointer to next char to get 

Get char and delete from input buffer 

Br if no more characters are available 

Say no read time-out pending 



j See if (lie are in single-character-activation mode. 

i 

BIT #SPCTTY, LJSW<R1);D0ES PROGRAM WANT SINGLE-CHAR INPUT? 

BEQ 6* 5 BR IF NOT 

BIT #*CHACT, LSW5<R1); IS SINGLE-CHARACTER INPUT ENABLED? 

BEQ 6* i BR IF NOT 

CALL CVTLC i SET IF WE NEED TO CONVERT TO UPPER-CASE 

BIT #ACFLAG, RO J IS THIS AN ACTIVATION CHARACTER? 

BEQ 10* jBR if not 

JMP GCCKDS 

10*: JMP GCCKCC 



6*: 



See if me are in high-efficiency mode. 

BIT #*HITTY, LSW4<Rl>i ARE WE IN HIGH-EFFICIENCY MODE? 
BEQ 3* i BR IF NOT 



We are in high-efficiency mode 



5*: 



JMP 



GCEND 



; DO EXPRESS CHARACTER PROCESSING 



; SEE IF THIS IS FLAG CHAR MEANING NEXT CHAR IS PART OF 

i VT50 ESCAPE SEQUENCE. 

i 

3*: BIT #*GCESC,LSW3(Rl)i IS THIS CHAR PART OF ESC SEQUENCE? 

BEQ 1* ; BR IF NOT 

JMP GCCKAC i TAKE CHAR WITHOUT FURTHER CHECKING 

1*: CMPB RO, #ESCFLG > IS THIS FLAG FOR NEXT CHAR IN ESC SEQ? 

BNE GCCKES ; BR IF NOT 

BIT #*VTESC,LSW5<Rl)i ARE WE ACTIVATING ON ESCAPE SEQUENCES? 

BEQ GCCKES > BR IF NOT 

BIS #*GCESC. LSW3(Rl)i REMEMBER NEXT CHAR PART OF ESC SEQ 

BR 9* ; GO GET NEXT CHAR 



I 

i 
I 
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• I 
i 
I 

€ 

» 

i 

I 

I C 

i 

I 

< 
I 
< 



1 

2 








3 








4 








5 
6 
7 
8 
9 


006356 


004737 


017422' 


006362 


032761 


OOOOOOG OOOOOOG 


10 


006370 


001450 




11 


006372 


032761 


OOOOOOG OOOOOOG 


12 


006400 


001074 




13 








14 








15 








16 


006402 


010346 




17 


006404 


010002 




18 


006406 


042702 


177400 


19 








20 


006412 


120227 


000037 


21 


006416 


101013 




22 








23 


006420 


012703 


000004 


24 


006424 


120263 


007006 ' 


25 


006430 


001402 




26 


006432 


005303 




27 


006434 


100373 




28 








29 


006436 


006303 




30 


006440 


016303 


007016' 


31 


006444 


000402 




32 








33 


006446 


012703 


004056 ' 


34 


006452 


010361 


OOOOOOG 


35 


006456 


120227 


000141 


36 


006462 


103405 




37 


006464 


120227 


000172 


38 


006470 


101002 




39 


006472 


162702 


000040 


40 


006476 


110261 


OOOOOOG 


41 


006502 


052761 


OOOOOOG OOOOOOG 


42 


006510 


012603 





MACRO V05. 04 Monday 25-Jan-SS 08: 31 Page 34 



WE HAVE THE NEXT rHARAnPR TIM RO 

SEE IE WE NEED TO TRANSLATE LOWER CASE CHARS TO UPPER CASE. 

GCCKES: CALL CVTLC i CONVERT LC TO UC IF NEEDED 

SEE IF WE NEED TO DO ECHO SUPPRESSION. 

BIT #SPCTTY, LJSW<Rl)i IS ECHO SUPPRESSION NEEDED? 

BEQ GCCKAC ; BRANCH IF NOT 

BIT #*CHACT, LSW5<R1)> ARE WE IN SINGLE-CHAR -ACT I VAT I ON MODE? 

BNE GCCKCC i BR IF YES 

BEGIN ECHO SUPPRESSION. 



MOV 

MOV 

BIC 
; SEE IF THIS 

CMPB 

BHI 
i THIS IS A 

MOV 
5*: CMPB 

BEQ 

DEC 

BPL 
i FALL THROUGH 

ASL 

MOV 

BR 
THIS IS NOT 

MOV 

MOV 

CMPB 

BLO 

CMPB 

BHI 

SUB 
1*: MOVB 

BIS 

MOV 



R3, -(SP) 
RO, R2 

#177400, R2 
IS A REGULAR 
R2, #37 
4* 



8*: 



4$: 
6*: 



CONTROL CHAR 
#NESCTL, R3 
R2, SESCTL<R3) 
8* 
R3 
5* 

WITH R3=-i FOR 
R3 

SESRTN(R3),R3 
6* 
CONTROL CHAR. 



; GET THE CHAR 

i CLEAR ACTIVATION CHAR FLAG 
OR CONTROL CHARACTER 

; REGULAR OR CONTROL? 
i BRANCH IF REGULAR CHAR 
- CHECK FOR SPECIAL CASES. 

;# OF SPECIAL CONTROL CHARS 
; IS THIS ONE? 
; BRANCH IF YES 
; TRY REST 



REGULAR CONTROL CHAR. 
;GET WORD TABLE INDEX 
;GET ROUTINE ADDRESS 



#ESUAC, R3 

R3, LESRTN(Rl) 

R2, #141 

1* 

R2, #172 

1* 

#40, R2 

R2, LESCHR<R1> 

#*NOOUT, LSW3<R1 )i TURN 

(SP)+, R3 



SET NORMAL HANDLER ROUTINE 
SET HANDLER ROUTINE FOR PUTCHR 
IS CHAR A LOWER-CASE LETTER? 
BR IF NOT 



i CONVERT LOWER-CASE TO UPPER-CASE 
; REMEMBER CHAR 

ON ECHO SUPPRESSION 



TSTTY — 
GETCHR - 

1 
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I 
I 

€ 



006512 
006516 
006520 
006524 



006566 004737 007030 ' 



3 

4 

5 

6 

7 

8 

9 
10 
11 

12 006526 

13 006534 

14 006536 

15 006544 

16 006546 

17 006554 
18 

19 
20 

21 006556 

22 006564 
23 

24 
25 
26 
27 
28 
29 

30 006572 

31 006576 

32 006600 

33 006606 

34 006610 

35 006616 

36 006620 

37 006624 

38 006626 

39 006634 

40 006636 

41 006642 

42 006644 

43 006652 

44 006654 

45 006660 

46 006662 

47 006670 

48 006672 

49 006700 

50 006702 

51 006706 

52 006712 



004737 
103017 
032700 
001474 



032761 
001416 
032761 
001010 
052761 
000406 



120027 
001055 
032761 
001016 
032761 
001045 
005761 
001042 
032761 
001403 
004737 
103033 
032737 
001417 
004737 
103404 
032761 
001010 
032761 
001404 
004737 
004737 
004737 



007760 ' 
0000000 



> 


■i * thic; 


is an activ 


i 

GCCKAC: 


CALL 


CFTEST 




BCC 


GCCKCE 




BIT 


#ACFLAG, RO 




BEQ 


GCCKDE 



INPUT FROM CONTROL FILE? 
BR IF YES 

IS THIS AN ACTIVATION CHAR? 
BRANCH IF NOT. 



This is an activation character. 

See if lue need to start doing deferred echoing. 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



GCCKDS: BIT 
BEQ 
BIT 
BNE 
BIS 
BR 



#*D0DFR,LSW3<Rl)i IS ECHOING BEING DEFERRED? 

GCCKCC i BRANCH IF NOT 

#*GCECD, LSW3<R1);HAVE WE ALREADY STARTED? 

GCEAC i BRANCH IF YES 

#*GCEC0,LSW3<Rl)i BEGIN DEFERRED ECHOING WITH NEXT CHAR 

GCCKCC 



See if want to list the contents of a control file. 



032761 OOOOOOG OOOOOOG 
001002 



GCCKCE: BIT 
BNE 



#*QUIET, LSW4<Rl)i LIST COMMAND FILE? 
GCCKCC i BR IF NO LIST 



i ECHO THE ACTIVATION CHAR NOW. 

t 

GCEAC: CALL GCECHO i ECHO THE CHARACTER 

i 

i See if character we got is control-c. 



OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

007760 ' 

OOOOOOG OOOOOOG 7*: 

007760 ' 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



010714' 
010764' 
OOOOOOG 



GCCKCC: CMPB 
BNE 
BIT 
BNE 
BIT 
BNE 
TST 
BNE 
BIT 
BEQ 
CALL 
BCC 
BIT 
BEQ 
CALL 
BCS 
BIT 
BNE 

6*: BIT 
BEQ 
CALL 
CALL 

8*: CALL 



RO, #CTRLC 

GCEND 

#*DBGMD, LSW6<R1) 

7* 

#*UCTLC,LSW4<R1) 

GCEND 

LSCCA(Rl) 

GCEND 

#*CCLRN, LSW5<R1) 

7* 

CFTEST 

GCEND 

#LF*IN, LOGFLG 

8* 

CFTEST 

6* 

#*QUIET, LSW4<R1) 

8* 

#*ECHO, LSW2(R1) 

8* 

LOGCHR 

LOGCR 

STOP 



IS CHAR CTRL-C? 

BRANCH IF NOT 

IS A DEBUGGING PROGRAM IN CONTROL? 

BR IF YES 

IS CTRL-C A USER DEF ACTIV CHAR? 

BRANCH IF IT IS 

DID USER DO . sec A? 

BR IF YES 

IS CCL TRANSLATOR RUNNING? 

BR IF NOT 

IS INPUT COMING FROM A COMMAND FILE? 

BR IF YES 

Are we logging input characters? 

BR IF NOT 

IS INPUT COMING FROM A CONTROL FILE? 

BR IF NOT 

SHOULD WE DISPLAY CONTROL FILES? 

BR IF NOT 

ARE WE ECHOING CHARACTERS? 

DON'T LOG IF NOT ECHOING 

LOG THE CONTROL-C 

LOG CR-LF 

STOP PROGRAM EXECUTION 
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€ 

I 



1 

3 
4 
5 
6 
7 



006716 
006724 

8 006726 

9 



10 

■I 4 

I X 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



006732 
006740 
006742 
006746 
006750 
006756 
006760 
006766 
006770 
006774 
007000 
007002 
24 007004 



032761 
001402 
004737 



032737 
001415 
004737 
103404 
032761 
001006 
032761 
001402 
004737 
042700 
012602 
012601 
000207 



0000000 
007030 ' 

0000000 

007760 ' 

0000000 

0000000 

010714' 
177400 



THTR rWAR TB NOT AN ACTIVATTnw rHAR 
SEE IF WE NEED TO DO DEFERRED ECHOING. 



OOOOOOG GCCKDE: BIT 

BEQ 
CALL 



#*GCECO, LSW3<Rl)iHAVE WE STARTED DEFERRED ECHOING? 
GCEND } BRANCH IF NOT 

GCECHO ; ECHO THE CHARACTER 



See if we should write character to log file 



OOOOOOG GCEND: BIT 

BEQ 



OOOOOOG 
OOOOOOG 1*: 



CALL 
BCS 
BIT 
BNE 
BIT 
BEQ 
CALL 
GCEXIT: BIC 
MOV 
MOV 
RETURN 



#LF*IN, LOGFLG 

GCEXIT 

CFTEST 

1* 

#*QUIET, LSW4<R1) 

GCEXIT 

#*ECHO, LSW2<R1) 

GCEXIT 

LOGCHR 

#•■^0377, RO 

<SP)+, R2 

(SP)+. Rl 



Are we logging input characters? 

Br if not 

Is input coming from a control file? 

Br if not 

Should we log control file characters? 

Br if not 

Is echo suppression in effect? 

Do not log if not echoing 

Log the character 

Mask character to S bits 
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1 






2 






3 






4 






5 






6 






7 


007006 


OOOG 


8 


007007 


OOOG 


9 


007010 


OOOG 


10 


007011 


OOOG 


11 


007012 


OOOG 


12 




000004 


13 






14 






15 






16 






17 






18 






19 






20 






21 


007014 


004110' 


22 


007016 


004154' 


23 


007020 


004172' 


24 


007022 


004136' 


25 


007024 


004136' 


26 


007026 


004202 ' 



TABLE OF CONTROL CHARACTERS WHICH REQUIRE SPECIAL 
PROCESSING WITH REGARD TO ECHO SUPPRESSION. 

TABLE OF CONTROL CHARACTERS. 



. BYTE 


FF 


;FORM FEED 


. BYTE 


ESC 


ESCAPE 


. BYTE 


LF 


LINE FEED 


. BYTE 


CR 


CARRIAGE RETURN 


. BYTE 


TAB 


TAB 


a: 


. -SESCTL-1 


# OF SPECIAL CHARS 



. EVEN 

PARALLEL TABLE OF ADDRESSES OF ROUTINES TO RESTART 

OUTPUT WHEN ECHO SUPPRESSION IS IN EFFECT FOR 

SPECIAL CONTROL CHAR. 

SESRTN TABLE MUST BE PARALLEL TO SESCTL TABLE. 

NOTE: <-l) TABLE ENTRY IS USED FOR REGULAR CONTROL CHARS. 



(-1) REGULAR CONTROL CHAR 

FORM FEED 

ESCAPE 

LINE FEED 

CARRIAGE RETURN 

TAB 





. WORD 


ESCTL 


SESRTN: 


. WORD 


ESFF 




. WORD 


ESESC 




. WORD 


ESCRLF 




. WORD 


ESCRLF 




. WORD 


ESHT 
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I 

€ 
i 



1 

2 
3 
4 
5 
6 
7 

8 007030 

9 007034 

10 007036 

11 007044 

12 007046 

13 007054 

14 007056 

15 007060 

16 007062 

17 007064 
IS 

19 
20 

21 007070 

22 007074 

23 007076 

24 007104 

25 007106 

26 007114 

27 007116 
28 

29 
30 

31 007120 

32 007124 

33 007126 

34 007132 

35 007134 

36 007136 
37 

38 007140 

39 007144 

40 007146 

41 007152 

42 007154 

43 007160 
44 

45 007162 

46 007166 

47 007170 

48 007174 

49 007176 

50 007202 
51 

52 007204 

53 007206 

54 007212 

55 007216 

56 007220 

57 007224 



004737 
103511 
032761 
001505 
032761 
001101 
010046 
010246 
010346 
042700 



120027 
001011 
032761 
001405 
032761 
001456 
000453 



016102 
001405 
016103 
120023 
001446 
077203 

120027 
101040 
120027 
001003 
112700 
000432 

120027 
001406 
120027 
001403 
120027 
001021 

110003 
112700 
004737 
110300 
052700 
004737 



GCECHO IS CAI I Fn TO FCHD A CHARACTER AS IT IS PASSED 

TO THE USER IF WE ARE IN DEFERRED ECHO MODE. 

WHEN CALLED, THE CHARACTER TO BE ECHOED MUST BE IN 

RO AND THE USER INDEX NUMBER MUST BE IN Rl. 

ALL REGISTERS ARE PRESERVED. 



017222 



OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



: CALL 


SCACHK 


BCS 


99* 


BIT 


#«ECHO, LSW2<R1> 


BEQ 


99* 


BIT 


#*GCESC,LSW3<R1) 


BNE 


99* 


MOV 


RO, ~(SP) 


MOV 


R2, -(SP) 


MOV 


R3, -<SP) 


BIC 


#ACFLAG, RO 



ARE WE IN SINGLE CHARACTER INPUT MODE? 

BR IF YES — DON'T ECHO CHARACTER 

IS CHAR ECHOING WANTED? 

RETURN IF NOT 

IS THIS CHAR PART OF ESC SEQUENCE? 

BR IF YES 



STRIP OFF ACTIVATION-CHAR FLAG 



I 
I 
f 
f 

i 



See if lue should echo line-feed characters 



CMPB 


RO, #LF 


BNE 


7* 


BIT 


#*NOLF, LSW6<R1) 


BEQ 


7* 


BIT 


#*DBGMD, LSW6(R1) 


BEQ 


2* 


BR 


5* 



IS THIS CHAR LINE -FEED? 

BR IF NOT 

IS LINE-FEED ECHO SUPPRESSION IN EFFECT? 

BR IF NOT 

IS A DEBUGGER RUNNING NOW? 

BR IF NOT (DON'T ECHO LF) 

ECHO LF 



SEE IF CHAR IS A USER DEFINED ACTIVATION CHAR. 



OOOOOOG 
OOOOOOG 



7*: 



000037 

OOOOOOG 

000044 

OOOOOOG 
OOOOOOG 
OOOOOOG 



000136 
003056 ■ 

000100 
003056 



MOV LNSPAC(R1),R2 

BEQ 1* 

MOV LSPACT<R1),R3 

3*: CMPB RO, (R3) + 

BEQ 2* 

SOB R2, 3* 
; SEE IF CHARACTER IS ESCAPE. 

CMPB RO, #37 

BHI 5* 

CMPB RO, #ESC 

BNE 4* 

MOVE #'*, RO 

BR 5* 
CHECK FOR SPECIAL CONTROL CHARACTERS 



1*: 



GET # OF USER DEF ACT IV CHARS 

BRANCH IF NONE 

POINT TO TABLE FOR USER 

SEE IF THIS IS ONE 

BRANCH IF IT IS 

LOOP IF MORE TO CHECK 

REGULAR OR CONTROL CHAR? 

BRANCH IF REGULAR CHARACTER 

IS CHAR ESCAPE? 

BRANCH IF NOT 

OTHERWISE, ECHO * FOR ESCAPE 



4*: 



ECHO 



6*: 



CMPB 

BEQ 

CMPB 

BEQ 

CMPB 

BNE 

■'--CHAR 

MOVB 

MOVB 

CALL 

MOVB 

BIS 

CALL 



RO, #CTRLZ 
6* 

RO, #CTRLC 
6* 

RO, #CTRLX 
5* 
FOR SPECIAL 
RO, R3 
#136, RO 
PUTCHl 
R3, RO 
#100, RO 
PUTCHl 



CTRL-Z? 
BRANCH IF 
CTRL-C? 



YES 



i CTRL-X? 

i BRANCH IF NOT SPECIAL CONTROL CHAR 
CONTROL CHARS 

i SAVE CONTROL CHAR 
iECHO ■'- 



GET CONTROL CHAR 
CONVERT TO PRINTING CHAR 
PRINT CHAR 



i 

< 
i 
4 

i 

€ 

4 

I 
I 
4 
« 



I 

€ 
I 
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58 007230 

59 007234 

60 007240 

61 007244 
62 

63 

64 

65 

66 007246 

67 

68 007252 

69 007254 

70 007256 

71 007260 



1 1 2700 
004737 
112700 
000400 



OOOOOOG 
003056 ' 
OOOOOOG 
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ECHO CR 



004737 003056 ' 



1 2603 



012602 
012600 
000207 



MOVE 




#CR.RO 


C Al 1. 




pijTrHl 


MOVE 




#LF, RO 


BR 




5* 


i THIS IS A 


REGULAR CHARACTER 


> 

i ECHO CHAR 


IN 


RO. 


5*: CALL 




PUTCHl 


; RETURN 






2$: MOV 




<SP)+, R3 


MOV 




(SP)+, R2 


MOV 




<SP)+, RO 


99*: RETURN 





;ECHO THE CHARACTER 



I 
I 



i 
i 
I 

« 

i 

( 

I 

I 

« 

i 

I 

4 
I 
I 

I 



TSTTY - 
GTCFCH 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

li 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



007262 004737 007760 
007266 103543 



007270 1 1 3700 OOOOOOG 

007274 001403 

007276 105037 OOOOOOG 

007302 000532 



007304 004737 007600 ' 

007310 103531 

007312 120027 000136 

007316 001124 



. SBTTL GTCFCH — Try to get char from command file 
GTCFCH is called to try to obtain a character from a command file. 



Inputs: 
Rl = Job index number. 

Outputs: 
C-fiag cleared if a character is obtained from command file. 
RO = Character obtained. 

See if uie are getting characters from a command file. 



GTCFCH: CALL 
BCS 



CFTEST 
13$ 



iSEE IF INPUT IS COMING FROM A COMMAND FILE 

i BR IF NOT 



See if we are holding a character 



MOVE 


CFHOLD, RO 


BEQ 


10* 


CLRB 


CFHOLD 


BR 


12* 



ARE WE HOLDING A CHARACTER? 
BR IF NOT 

SAY CHARACTER IS GONE 
TAKE SUCCESSFUL RETURN 

Input is coming from a command file. 

10*: CALL CFCHAR ; GET CHAR FROM CONTROL FILE 

BR IF END OF COMMAND FILE HIT 
IS THIS A CONTROL CHAR? 
BRANCH IF NOT 

We found "^" character in command file. 

This means uje may have to treat the next character as a control char. 



CALL 


CFCHAR 


BCS 


14* 


CMPB 


RO, #'•'- 


BNE 


12* 



007320 004737 007600 ' 
007324 103523 



007326 120027 000044 

007332 001003 

007334 012700 OOOOOOG 

007340 000513 



007342 120027 000136 
007346 001510 



007350 120027 000050 

007354 001007 

007356 052761 OOOOOOG OOOOOOG 

007364 042761 OOOOOOG OOOOOOG 

007372 000744 



CALL 
BCS 



CFCHAR 
14* 



^* is interpreted as escape 



CMPB 


RO, #'* 


BNE 


3* 


MOV 


#ESC, RO 


BR 


12* 



i GET NEXT CHAR 

; BR IF END OF COMMAND FILE HIT 



i TREAT •'^* AS ESCAPE CHAR 



is interpreted as a single 



3*: 



CMPB 
BEQ 



RO, tt'-^ 
12* 



; ANOTHER "•'^"? 

; IF YES THEN RETURN "'-" AS CHARACTER 



•'"( means stop listing control file 

CMPB RO, #'( i STOP LISTING COMMAND? 

BNE 4* i BR IF NOT 

BIS #*QUIET, LSW4(Rl)i SET NO LISTING FLAG 

BIC #*CFSOT, LSW4<Rl)i ALLOW PROGRAM OUTPUT TO PRINT 

BR 10* ; GO GET NEXT CHAR FROM FILE 

•'■•) means start listing control file 



TSTTY — 
GTCFCH - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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— Try to get char from command file 



007374 
007400 
007402 
007410 



007412 
007416 
007420 
007426 



007430 
007434 
007436 
007444 



007446 
007452 
007454 
007462 



007464 
007470 
007472 
007476 



007500 
007504 
007506 
007514 
007520 



007522 
007526 
007530 
007534 
007536 
007542 
007544 
007550 
007552 
007556 



120027 
001004 
042761 
000735 



120027 
001004 
052761 
000726 



120027 
001004 
052761 
000717 



120027 
001004 
042761 
000677 



120027 
103414 
120027 
101011 



042700 
006300 
016037 
004737 
000671 



120027 
103414 
120027 
101406 
120027 
103406 
120027 
101003 
042700 
000404 



000051 

OOOOOOC 0000000 



4*: 



CMPB Rn.ttM : START-LTSTINC CDMMANn-? 

BNE 7* iBR IF NOT 

BIC #<*QUIET.'*CFS0T>,LSW4<R1); START LISTING FILE 

BR 10* i GO GET NEXT CHAR 



means suppress all output 



command file and program 



000041 

OOOOOOC OOOOOOG 



7*: 



CMPB RO, # ' ! ; SUPPRESS OUTPUT? 

BNE 5* ;BR IF NOT 

BIS #<*CFS0Ti$QUIET>,LSW4<Rl)i BEGIN SUPPRESSING OUTPUT 

BR 10$ 

means accept all chars from Sfile 



000076 

OOOOOOG OOOOOOG 



5*: 



CMPB 


RO, #'> i ACCEPT ALL CHARS? 


BNE 


6* i BR IF NOT 


BIS 


#*CFALL,LSW4(R1>;SET FLAG 


BR 


10* 



000074 

OOOOOOG OOOOOOG 



6*: 



000061 
000060G 



?*: 



177760 

177776G 
OOOOOOG 



OOOOOOG 



^< means accept only .gtlin chars from Sfile 

CMPB RO, #'< ; ACCEPT ONLY .GTLIN CHARS? 

BNE 2* i BR IF NOT 

BIC #*CFALL.LSW4(R1); RESET FLAG 

BR GTCFCH 

^digit is used to indicate a parameter substitution 

•-^DIGIT MEANS SUBSTITUTE PAR AM 
BR IF NOT PARAM 
IN VALID RANGE? 
BR IF NOT 

Switch input to a parameter string 

BIC #177760, RO i LEAVE VALUE ONLY 

ASL RO i CONVERT TO WORD TABLE INDEX 

MOV <PRMPNT-2><R0), CURPRM ; SET CHAR STRING POINTER 

CALL CHKABT > ALLOW ABORTS WHILE GETTING PARAMETERS 

BR 10* ; GO GET 1ST CHAR FROM STRING 

•'^letter causes the letter to be converted to a control character 



CMPB 


RO, #'1 


BLD 


1* 


CMPB 


RO, #<60+MXCPRM> 


BHI 


1* 



000101 
000132 
000141 
000172 
177740 



1*: 



16*: 



CMPB 


RO, #'A 


BLO 


15* 


CMPB 


RO, #'Z 


BLOS 


16* 


CMPB 


RO, #141 


BLO 


15* 


CMPB 


RO. #172 


BHI 


15* 


BIC 


#177740, RO 


BR 


12* 



; IS THIS A LETTER? 
iBR IF NOT 

BR IF UPPER-CASE LETTER 

SEE IF THIS IS A LOWER-CASE LETTER 

BR IF NOT 

BR IF NOT LETTER 

CONVERT ALPHA TO CONTROL CHAR 

RETURN CONTROL CHARACTER AS CHARACTER GOTTEN 



■"■ was followed by something we don't recognize. 
Just return the -^ as the character gotten. 
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115 

116 007560 110037 OOOOOOG 

117 007564 112700 000136 
118 

119 
120 

121 007570 000241 

122 007572 000401 

123 007574 000261 

124 007576 000207 



15«: MOVE 
MOVE 

f Finished 

i 

12*: CLC 

BR 
14$: SEC 
13*: RETURN 



pn. CFHOI Ti 
# '■•'\ RO 



13* 



: "PURH" THF ISiFVT CHARACTFR 

i RETURN "■'-" AS THIS CHARACTER 



; INDICATE SUCCESSFUL RETURN 
; INDICATE UNSUCCESSFUL RETURN 



i 



€ 



TSTTY — 


- TSX Terminal I/O routi 


CFCHAR - 

1 
2 
3 


— Do command fi 


le I/O 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


007600 


010246 




16 


007602 


013702 


0000000 


17 


007606 


001407 




18 








19 








20 








21 


007610 


112200 




22 


007612 


001403 




23 


007614 


010237 


0000000 


24 


007620 


000452 




25 








26 








27 


007622 


005037 


0000000 


28 








29 








30 








31 


007626 


013702 


OOOOOOG 


32 


007632 


020227 


ooooooe 


33 


007636 


103437 




34 








35 


007640 


113746 


000052 


36 


007644 


005237 


OOOOOOG 


37 


007650 






38 


007710 


112637 


000052 


39 


007714 


103006 




40 








41 








42 








43 








44 


007716 


004737 


010070' 


45 


007722 


005737 


OOOOOOG 


46 


007726 


001337 




47 


007730 


000410 




48 








49 


007732 


012702 


OOOOOOG 


50 


007736 


112200 




51 


007740 


001734 




52 


007742 


010237 


OOOOOOG 


53 








54 


007746 


000241 




55 


007750 


000401 




56 








57 


007752 


000261 
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SBTTL CFCHAR 



Do command -file I/O 



CFCHAR is the lowest level routine called to get a character from 
a command file. It does the actual I/O to read the command file 
and returns the next character from the buffer or from a parameter 
string if string substitution is being done. 

Inputs: 
Rl = Current job index number. 

Outputs: 
RO = Next character from command file. 
C~flag set on return if end of file hit. 



CFCHAR: MOV 
MOV 
BEQ 



R2i -<SP) 
CURPRM, R2 

5* 



} INPUT FROM PARAM STRING? 

i BR IF NOT 



INPUT IS COMING FROM A PARAMETER STRING 



MOVE 


(R2)+, RO 


BEQ 


6$ 


MOV 


R2, CURPRM 


BR 


9* 



GET NEXT CHAR FROM STRING 
BR IF HIT END OF STRING 
UPDATE CHAR POINTER 
RETURN 



6$ 



HIT END OF PARAMETER STRING. 
SWITCH INPUT BACK TO CONTROL FILE 
CLR CURPRM 



CLEAR PARAM STRING POINTER 



GET CHARACTER FROM CONTROL FILE 



5*: 
4*: 



MOV CFPNT, R2 
CMP R2, #CFEND 
BLO 1* 
REACHED END OF BUFFER - 
MOVB 
INC 
. READW 



MOVB 
BCC 



;GET POINTER INTO BUFFER 
;HIT END OF BUFFER? 
; BRANCH IF NOT 
READ IN NEXT BLOCK. 
@#52, -(SP) ;SAVE I/O ERROR CODE 
CFBLK i INC FILE BLOCK NUMBER 

#CFARG, #CFCHAN, #CFBUF, #256. , CFBLK 
(SP)+, @#52 j REPLACE ERROR CELL 
3* iBR IF NOT AT END OF FILE 



End of file has been hit. 

Try to pop up to higher level file. 



CALL 




CFPOP 


TST 




CFPNT 


BNE 




5* 


BR 




11* 


; GET NEXT CHAR FROM BUF 


3*: MOV 




#CFBUF, R2 


1*: MOVB 




<R2)+, RO 


BEQ 




4* 


8*: MOV 




R2, CFPNT 


; Successful 


return. 


9*: CLC 






BR 




12* 


; Unsuccessful 


return. 


11*: SEC 







TRY TO POP UP TO HIGHER LEVEL FILE 
WAS THERE A HIGHER LEVEL FILE? 
BR IF YES 



RESET BUFFER POINTER 
GET NEXT CHAR 
IGNORE NULLS 
SAVE NEW CHAR POINTER 



€ 
i 

I 
4 
I 
I 
I 
< 
C 



i SIGNAL UNSUCCESSFUL RETURN 



I 

4 
I 
4 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 Monday 25-Jan-S8 OB: 31 Page 40-1 
CFCHAR — Do command file I/O 

58 007754 012602 12*: MOV (SP)+, R2 

59 O07756 000207 RFTURM 



i 

1 



TSTTY — 
CFTEST - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 



TSX Terminal I/O routi 
- Determine if TT input 



MACRO V05. 04 
is from file 
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007760 
007764 
007766 
007774 
007776 
010004 
010006 
010010 
010012 
010014 



005737 
001412 
032761 
00 1 004 
032761 
001402 
000241 
000207 
000261 
000207 



. SBTTL CFTEST — Determine if TT input is from file 

CFTEST IS CALLED TO DETERMINE IF TT INPUT IS COMING FROM 

A COMMAND FILE. 

IF YES, THE C-FLAG IS RESET ON RETURN. 

IF NO, THE C-FLAG IS SET ON RETURN. 

WHEN CALLED, Rl MUST CONTAIN THE USER INDEX NUMBER. 

ALL REGISTERS ARE PRESERVED. 



OOOOOOG 



CFTEST: TST 
BEQ 
OOOOOOG OOOOOOG CFTSTl: BIT 



OOOOOOG OOOOOOG 



2*: 
CFTNO: 



BNE 

BIT 

BEQ 

CLC 

RETURN 

SEC 

RETURN 



CFPNT ; INPUT FROM COMMAND FILE? 

CFTNO i BR IF NOT 

#*GTLIN, LSW4(R1)J IS THIS A . GTLIN INPUT EMT? 

2* ; BR IF YES 

#*CFALL, LSW4(Rl)i GET . TTYIN INPUT FROM ©FILE? 

CFTNO i BR IF NOT 

i SAY INPUT COMING FROM FILE 

i SAY INPUT NOT COMING FROM FILE 



TSTTY — 
CFSTOP - 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
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■ Suspend command file input 



. SBTTL CFSTOP 



Su&pend command file input 



010016 010046 



010020 005037 0000000 



010024 013700 OOOOOOG 

010030 042760 OOOOOOG OOOOOOG 



010036 012600 
010040 000207 



Suspend command file input by setting CFPNT=0. 
All registers are preserved. 

CFSTOP: MOV RO. -<SP) 

Say input not coming from a command file 

CLR CFPNT J Suspend command file input 

Clear command-file-active status flag in RMON cell 



MOV 
BIC 

Finished 



CXTRMN, RO ;Get virtual address of RMON in cxt blk 
#CFACFL» R*CFST<RO) ; Say command file not active 



010042 010046 



010044 010037 OOOOOOG 
010050 001405 



010052 013700 OOOOOOG 

010056 052760 OOOOOOG OOOOOOG 



010064 012600 
010066 000207 



MOV <SP)+, RO 
RETURN 

.SBTTL CFSTRT — Restart command file input 

Restart command file input by storing a non-zero walue into CFPNT. 

Inputs: 
RO = Value to store into CFPNT 

CFSTRT: MOV RO, -<SP) 

Restart command file input 



MOV 
BEQ 



RO, CFPNT 
9* 



j Set command file buffer pointer 
j Br if not starting command file 



Set command-file-active flag in RMON status cell 



MOV 
BIS 

Finished 



CXTRMN, RO iGet virtual address of RMON in cxt blk 
#CFACFL, R*CFST<RO) ; Set command-file-active flags 



9$: MOV (SP)+, RO 
RETURN 



I 

4 

I 

i 

I 

« 

I 

C 

i 
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1 
2 
3 
4 
5 
6 
7 



€ 
€ 
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SBTTL CFPOP — Pop up to next command file 



CFPOP is called to close the current command file and pop up to 
the next higher command file. 



010070 
010072 

8 010074 

9 010076 

10 010100 

11 010104 

12 010110 

13 010116 

14 010122 

15 010124 

16 010130 

17 010134 
IS 010142 
19 

20 
21 

22 010146 

23 010154 

24 010156 

25 010164 
26 



29 010172 

30 010176 
31 

32 
33 

34 010200 

35 010204 

36 010212 

37 010220 

38 010222 

39 010230 

40 010236 

41 010240 

42 010246 

43 010254 

44 010256 

45 010264 

46 010270 

47 010274 

48 010276 

49 010302 

50 010310 

51 010312 

52 010320 

53 010326 

54 010332 

55 010334 
56 

57 



010146 
010346 
010446 
010546 
1 1 3746 
113701 
042761 
005737 
001002 
000137 
013705 
113765 
105037 



032761 
001406 



105737 
001060 



004737 
042761 
032761 
001006 
042761 
042761 
005000 
016060 
032761 
001403 
016060 
062700 
020027 
103761 
005037 
032761 
001572 
042761 
042761 
105737 
001561 
004737 



000052 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 

010676' 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



042761 OOOOOOG OOOOOOG 



OOOOOOG 



CFPOP: 


MOV 


R1,-<SP) 




MOV 


R3, -<SP) 




MOV 


R4, -(SP) 




MOV 


R5, -<SP) 




MOVE 


@#52, -(SP) 




MOVE 


C0RUSR,R1 




BIC 


#*CFCCL, LSW4(R1) 




TST 


CFPNT 




BNE 


11* 




JMP 


9* 


11*: 


MOV 


CXTRMN, R5 




MOVE 


CFIND, R*INST(R5) 




CLRB 


CFHOLD 



;SAVE I/O ERROR CODE CELL 

i GET JOB INDEX NUMBER 

; SAY WE ARE NOT GETTING CHARS FROM CCL ( 

} IS A COMMAND FILE IN USE NOW? 

i Br if yes 

GET ADDRESS OF SIMULATED RMON DATA 

RESTORE IND STATUS BYTE 

CLEAR ANY COMMAND FILE HOLDING CHAR 

Close currently open file 

BIT #*CFOPN, LSW4(Rl)i IS THE COMMAND FILE CHANNEL OPEN? 

BEQ 1* iBR IF NOT 

. PURGE tCFCHAN i CLOSE CURRENT FILE 

BIC #*CFOPN, LSW4(Rl)j SAY COMMAND FILE CHANNEL IS NOW CLOSED 

See if there is a higher level command file to restore 



1$: 



TSTB 
BNE 



CFNEST 
2* 



;ANY HIGHER LEVEL COMMAND FILES? 

} BR IF YES 



There are no higher level command files 



010016' 

OOOOOOC OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

15*: 
OOOOOOG OOOOOOG 10*: 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
000002 12*: 

OOOOOOC 

OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 



CALL 

BIC 

BIT 

BNE 

BIC 

BIC 

CLR 

MOV 

BIT 

BEQ 

MOV 

ADD 

CMP 

BLO 

CLR 

BIT 

BEQ 

BIC 

BIC 

TSTB 

BEQ 

CALL 



CFSTOP ; Say no data coming from command file 

#<*CFALL!*CFSOT>, LSW4(R1) ; CLEAR COMMAND FILE CONTROL FLAGS 

#*LOFCF. LSW9(R1 )i Are we leaving a log off command file? 

15* ; If sa, do not restore terminal input 

#*NOIN, LSW3(R1) i ALLOW INPUT TO BE ACCEPTED FOR LINE 

#*SUCF, LSW9(R1 ) iSay we are no longer executing startup file 

RO i Init privilege vector index 

PRIVSO(RO), PRIVFO(RO)j Reset command file priv to set priv 

#*INKMN, LSW4(R1); Are we in TSKMON now? 

12* i Br if not 

PRIVSO(RO), PRIVCO(RO) ; Reset current privileges 



#2, RO 

RO, #PVNPW*2 

10* 

AFCF 

#*INKMN, LSW4(R1 ). 

9* 

#*SCCA, LSW5(R1) 



; Increment word index 

i Done all? 

j Loop if more 

i Clear command file attribute flags 

i;Are we in TSKMON now? 

j Br if not 

i Clear abort-suppression flag 
#*NOWIN> LSWll (Rl ); Clear window suppression 
SUCF2 j Is there a pending secondary file? 

9* i Br if not 

STOP J Reenter KMON to start secondary file 



Reopen next higher level file 



i 

i 

I i 

• f 
I I 

I 

I 
I I 

i 

I 

i 
« 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



010340 
010344 
010350 
010352 
010354 
010356 
010360 
010364 
010366 
010370 



010372 
010374 
010400 
010404 
010406 
010410 
010412 



010422 
010426 
010432 
010434 
010436 



010442 
010446 
010454 
010462 
010464 
010472 
010500 
010502 



010510 
010512 
010516 
010522 
010526 
010532 



Restore parameter pointers 



013705 
012703 
012504 
001402 
010423 
000774 
020327 
103002 
005023 
000773 



012504 
010437 
020427 
101402 
012544 
000773 
012537 



OOOOOOG 
OOOOOOG 



OOOOOOG 



2$; 
4$: 

3*: 



MOV 


CFSP, R5 


MOV 


#PRMPNT, R3 


MOV 


(R5)+, R4 


BEQ 


3* 


MOV 


R4, (R3) + 


BR 


4* 


CMP 


R3, #LSTPRM 


BHIS 


5* 


CLR 


(R3) + 


BR 


3* 



GET COMMAND FILE STACK POINTER 

POINT TO PARAM POINTER CELLS 

GET A PARAMETER POINTER 

BR IF END OF LIST HIT 

RESTORE POINTER 

GO BACK AND DO NEXT ONE 

ZERO ALL OTHER PARAMETER POINTERS 



Restore parameter strings 



OOOOOOG 
OOOOOOG 



OOOOOOG 



5*: 
7*: 

6*: 



MOV 


<R5)+, R4 




MOV 


R4, PBFEND 




CMP 


R4, #PRMBUF 




BLOS 


6* 




MOV 


(R5)+,-<R4) 




BR 


7* 




MOV 


<R5)+, CURPRM 





010416 012537 OOOOOOG 



Restore IND status flags 
MOV (R5)+, CFIND 



i GET ADDRESS OF END OF STRING 

RESTORED ALL OF STRING? 

BR IF YES 

POP STRING OFF OF STACK 

i POP POINTER INTO STRING 



i RESTORE IND STATUS FLAGS 



Reset command file control flags 



012704 
040461 
005104 
040415 
052561 



012537 
052761 
032737 
001003 
042761 
032737 
001003 
042761 



005000 
011560 
012560 
062700 
020027 
103767 



OOOOOOG 
OOOOOOG 



OOOOOOG 



MOV #CFLFL4, R4 

BIC R4, LSW4<R1) 

COM R4 

BIC R4, <R5) 

BIS (R5)+, LSW4<R1) 



GET CONTROL FLAG MASK 

CLEAR THOSE FLAGS 

MASK ALL BUT THOSE FLAGS 

} SET DESIRED FLAGS 



Restore command file attribute flags 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 13*; 

OOOOOOG OOOOOOG 



MOV 
BIS 
BIT 
BNE 
BIC 
BIT 
BNE 
BIC 



(R5)+, AFCF 

#*SCCA, LSW5<R1) 

#AF*CCA, AFCF 

13* 

#*SCCAi LSW5<R1) 

#AF*NPW, AFCF 

14* 



Restore command file attribute flags 

Assume ctrl-C abort suppression wanted 

Is abort suppression wanted? 

Br if yes 

Clear abort-suppression flag 

Suppressing process uiindoufing? 

Br if yes 



#*NOWIN/ LSWIKRI) i Clear mindow suspend flag 



Restore command file privileges 



OOOOOOG 
OOOOOOG 
000002 
OOOOOOC 



14*: 
8*: 



CLR 

MOV 
MOV 
ADD 
CMP 
BLO 



RO ; 

(R5),PRIVF0(R0) ; 



Init vector index 

Restore each privilege word 



(R5)+/ PRIVCO<R0)i Reset current privilege too 



#2, RO 

RO, #PVNPW*2 

8* 



Increment index 
Done all? 
Loop if more 



Restore buffer pointer information 
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€ 
4 
i 



115 
llA 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 



010534 
010536 
010542 



010546 
010564 
010570 



010576 



010636 
010642 



010646 
010654 
010656 
010662 
010670 
010672 
010676 
010702 
010704 
010706 
010710 
010712 



012500 
004737 
012537 



062705 
052761 



010537 
105337 



032761 
001410 
013705 
132765 
001402 
004737 
112637 
012605 
012604 
012603 
012601 
000207 



010042' 
OOOOOOG 



MOV <R5)+, RO 

CALL rPRTRT 

MOV (R5)+, CFBLK 

Reopen the command file 



; POINTER INTO BUFFER 

; Reset command file pointer 

; CURRENT BLOCK NUMBER 



000012 

OOOOOOG OOOOOOG 



. REOPEN #CFARG, #CFCHAN, R5 ; REOPEN COMMAND FILE 

ADD #10. ,R5 J POP SAVE STATUS INFO 

BIS #*CFOPN, LSW4(Rl)iSAY COMMAND FILE CHANNEL IS OPEN 

Reread current buffer from file 

. READW #CFARG, #CFCHAN, #CFBUF, #256. , CFBLK 



Finished restoring file 



OOOOOOG 
OOOOOOG 



MOV 
DECB 



R5, CFSP 
CFNEST 



; SAVE UPDATED STACK POINTER 
i SAY ONE LESS FILE ON STACK 



If we just reached the end of a command file created to hold 
an expanded IND command and KMON is trying to read another 
command, call STOP to force KMON to go back to IND to get the 
next command before continuing on with an outer level 
command file. 



OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
000052 



9*: 



BIT 

BEQ 

MOV 

BITB 

BEQ 

CALL 

MOVB 

MOV 

MOV 

MOV 

MOV 

RETURN 



#*INKMN, LSW4<Rl)i IS KMON RUNNING? 

9* i BR IF NOT 

CXTRMN, R5 ; GET ADDRESS OF SIMULATED RMON DATA 

#IN*ACT, R*INST<R5>i IS IND ACTIVE? 



9* 

STOP 

<SP)+, e#52 
(SP)+, R5 
(SP)+, R4 
<SP)+, R3 
<SP>+,R1 



;BR IF NOT 

i REENTER KMON TO FORCE REENTRY OF 

; RESTORE I/O ERROR CELL 



IND 
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€ 



1 

2 








3 








4 








5 








6 








7 








8 








9 


010714 


010046 




10 








11 








12 








13 


010716 


042700 


177400 


14 


010722 


120027 


000003 


15 


010726 


001403 




16 


010730 


120027 


000032 


17 


010734 


001007 




18 


010736 


112700 


000136 


19 


010742 


004737 


011012' 


20 


010746 


011600 




21 


010750 


062700 


000100 


22 


010754 


004737 


011012' 


23 








24 








25 








26 


010760 


012600 




27 


010762 


000207 




28 








29 








30 








31 








32 








33 


010764 


010046 




34 


010766 


112700 


0000000 


35 


010772 


004737 


011012' 


36 


010776 


112700 


0000000 


37 


011002 


004737 


011012' 


38 


011006 


012600 




39 


011010 


000207 





. SBTTL LOGCHR — Write character to log file 

LOGCHR is called to write a character to the log file. 
Control characters ars converted into '^character sequences. 

Inputs: 
RO = Character to be written to log. 

LOGCHR: MOV RO, -<SP) 

See if this is a control character 



Strip character down to 8 bits 

Is character control-C? 

Br if yes 

Is character control— Z? 

Br if not 

Log "•'^" 



1*: 



?*: 



BIC 


#-'^C377, RO 


CMPB 


RO, #3 


BEQ 


1* 


CMPB 


RO, #32 


BNE 


2* 


MOVB 


#''^, RO 


CALL 


LOGCHl 


MOV 


<SP),RO 


ADD 


#100, RO 


CALL 


LOGCHl 


Finished 




MOV 


(SP)+, RO 


RETURN 





jGet back original character 
j Convert to printing character 
; Log the character 



LOGCR is called to send a carriage-return and line-feed sequence 
to the log file. 



LOGCR : MOV 
MOVB 
CALL 
MOVB 
CALL 
MOV 
RETURN 



RO, -(SP) 
#CR, RO 
LOGCHl 
#LF, RO 
LOGCHl 
<SP)+, RO 



; Log carriage-return 
i Log 1 ine-f eed 



TSTTY - 
LOGCHR 
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— Write character to log file 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



011012 010246 



011014 
011022 



011024 
011030 
011032 
011036 



011040 
011044 
011046 
011052 
011110 
011112 
011116 
011122 
011126 
011132 
011136 
011142 



011144 
011146 



011152 
011154 



032737 
001453 



013702 
001450 
020227 
103442 



012702 
010046 
113746 

103010 
012705 
013704 
005037 
000137 
005237 
112637 
012600 



1 1 0022 
010237 



012602 
000207 



0000000 OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
000052 



177753 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 



LOGCHl is callpri to mnv '^ rharacter tn t-hp "i OQ hnffp'r. 
No tests or conversions are performed on the character. 
No logging is done if echo suppression is in effect. 

Inputs: 
RO = Character to be written. 

LOGCHl: MOV R2, -(SP) 

Check to see if log file output has been suspended <NOWRITE option) 

BIT #LF*WRT, LOGFLG ;Has log file been suspended? 
BEQ 9* i Br if yes 

Get current buffer pointer and make sure buffer is not full 



MOV LOGPTR, R2 

BEQ 9* 

CMP R2, #LOGEND 

BLO 1* 

Log file buffer is full. 



2*: 



MOV 


#LOGBUF, R2 


MOV 


RO, -<SP) 


MOVE 


@#52, -(SP) 


. WRITW 


#CFARG, #L0 


BCC 


2$ 


MOV 


#-25, R5 


MOV 


EMTADR, R4 


CLR 


LOGPTR 


JMP 


ABORT 


INC 


LOGBLK 


MOVE 


(SP)+, @#52 


MOV 


<SP)+, RO 



;Get current log file buffer pointer 
; Br if not doing logging 
; Is buffer full? 
; Br if not 

Write it to the log file. 

; Point to front of buffer 

/Save job's error cell 
^N, R2> #256. , LOGBLK ;Write block to log file 
i Br if no write error 

/Abort job if error writing to log file 
/Get address of EMT 

; Say we have stopped using log file 
; Abort the job 

/Advance log file block number 
/Restore error ceil 



Move character to log buffer 



1*: 



9*: 



MOVE 


RO/ (R2> + 


MOV 


R2/ LOGPTR 


Finished 




MOV 


(SP)+/ R2 


RETURN 





/Move char to log file buffer 
/Save new buffer pointer 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 



011156 
011164 
011166 
011174 



011200 
011206 
011210 
011216 
011224 



011234 
011240 
011246 
011254 
011260 
011266 
011272 
011274 
011302 
011304 
011312 
011320 
011322 
011326 
011332 
011334 
011336 
011344 



032761 
001405 
052761 
004737 



032761 
001410 
042761 
052761 
005237 



004737 
042761 
042761 
004737 

005761 
001021 
032761 
001006 
013761 
013761 
010046 
012700 
004737 
012600 
000747 

000207 



. SBTTL ILWAIT — Wait for activation char from terminal 

ILWAIT WAITS UNTIL AN ACTIVATION CHARACTER IS RECEIVED 
FOR CURRENT USER. ALL REGISTERS ARE PRESERVED. 
WHEN CALLED Rl MUST CONTAIN THE USER INDEX #. 



OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



ILWAIT: BIT 
GEQ 
BIS 
CALL 



#*DETCH, LSW(Rl) 

15* 

#*DISCN. LSW(Rl) 

STOP 



IS THIS A DETACHED JOB? 

BR IF NOT 

FORCE JOB LOGOFF 

HALT DETACHED JOBS THAT WANT TERMINAL INPUT 



OOOOOOG OOOOOOG 15*: 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



1 1 230 004737 1 1 346 



If uje previously stopped input from silo buffer, Restart it now 
if we are about to run out of characters. 

BIT #*XST0P,LSW6<R1);DID WE SUSPEND TRANSMISSION TO US^ 

BEQ 11* i BR IF NOT 

BIC #*XST0P,LSW6<R1); RESTART INPUT 

BIS #*NDICP, LSW10<Rl)i Say line needs input character servicing 

INC NEDCDI ;Say input processing needed 

If u>e are in deferred echo mode, echo any pending 
Characters on last line. 

11*: CALL DFRREL ; Release deferred echo mode 

Suspend user till activation character received. 



017474' 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 



13*: 



5*: 



1*: 



CALL 

BIC 

BIC 

CALL 

DISABL 

TST 

BNE 

BIT 

BNE 

MOV 

MOV 

MOV 

MOV 

CALL 

MOV 

BR 

ENABL 

RETURN 



SIGWAT i SIGNAL VIRTUAL LINE WAIT CONDITION 

#*NOIN, LSW3<R1) ; ALLOW INPUT TO BE ACCEPTED FOR LINE 
#*SUCF, LSW9(R1 > i Say we are no longer executing startup file 
CHKABT iSEE IF JOB HAS BEEN ABORTED 

i *# DISABLE #* 
LACTIV<R1) ; GOT ANY ACTIVATION CHARS YET? 
1* iBR IF YES 

#*NOINT, LSW7<R1 ); Does user want non-interactive execution? 
5* j Br if yes 

VINTI0,LHIPCT(R1); RESET INTERACTIVE I/O LIMIT FOR JOB 
VQUAN1,LITIME<R1); RESET INTERACTIVE CPU TIME LIMIT 
RO, -<SP) 

#S*INWT, RO i GET WAITING-FOR-INPUT STATE 

QHDSPN i SUSPEND JOB AND WAIT FOR ACTIVATION *ENABLE» 

(SP)+, RO 
13* ;NOW CHECK AGAIN 

; ** ENABLE ** 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 
DFRREL — Release deferred echo mode 



Monday 25-Jan-88 OS: 31 Page 47 



€ 
C 



OOOOOOS OOOOOOG 
OOOOOOG 



1 

2 
3 
4 

5 

7 

8 

9 011346 010246 

10 011350 010346 

11 011352 010446 
12 
13 
14 

15 011354 

16 011362 032761 

17 011370 001460 
IS 011372 005761 

19 011376 001055 

20 011400 
21 
22 
23 

24 011406 042761 

25 011414 052761 

26 011422 116161 

27 011430 005004 

28 011432 005003 

29 011434 016102 
30 
31 
32 

33 011440 020361 

34 011444 103027 

35 011446 004737 

36 011452 005704 

37 011454 001015 

38 011456 120027 

39 011462 001006 

40 011464 032761 

41 011472 001402 

42 011474 005204 

43 011476 000410 

44 011500 004737 

45 011504 004737 

46 011510 005004 

47 011512 032700 

48 011516 001005 

49 011520 005203 

50 011522 000746 
51 

52 

53 

54 011524 042761 OOOOOOS OOOOOOG 

55 

56 

57 



SBTTL DFRREL 



Release deferred echo mode 



DFRREL is called to release deferred echo mode and to echo any 
pending deferred characters. 



Inputs: 
Rl = Job index number 



DFRREL: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP> 
R4, -(SF) 



See if we are currently doing deferred echoing 



DISABL 

B I T #*DODFR . LSW3 ( R 1 ) 

BEQ 6* 

TST LACTIV(Rl) 

BNE 6$ 

ENABL 

We are in deferred echo mode 



*« DISABLE INTERRUPTS ** 

ARE WE IN DEFERRED ECHO MODE? 

BRANCH IF NOT 

ARE THERE ANY PENDING ACTIVATION CHARS? 

BR IF YES — DON'T ECHO IF PENDING ACTIV 

** ENABLE INTERRUPTS ** 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG 
016320' 

OOOOOOG 
OOOOOOG OOOOOOG 



5$: 



BIC #*GCEC0.LSW3<Rl)i RESET GETCHR ECHOING 

BIS #*1STCH>LSW3<R1);SAY WE'VE GOT 1ST CHAR 

MOVB LCOL<Rl),LINCUR(Rl)iSAVE CURSOR POSITION 

CLR R4 ;R4 IS FLAG FOR ESC SEQ CHARS 

CLR R3 

MOV LINPNT(R1),R2 ; POINT TO START OF PENDING CHARS 

Begin loop to echo all pending characters 

i ECHOED ALL PENDING? 
i BRANCH IF FINISHED 

; GET NEXT CHAR FROM TT INPUT BUFFER 
i IS THIS CHAR PART OF ESC SEQ? 
; BR IF YES 

; FLAG THAT NEXT CHAR PART OF ESC SEQUENCE? 
i BR IF NOT 
#*VTESC/ LSW5<R1 ); Are we activating on escape sequences? 

; Br if not — Treat ESCFLG like normal char 
i SET ESC SEQ FLAG 



017422' 
007030 ' 

OOOOOOG 



9$: 
Sf: 

10«: 



CMP 


R3, LINCNT<R1) 


BHIS 


4* 


CALL 


FETCHR 


TST 


R4 


BNE 


8* 


CMPB 


RO, #ESCFLG 


BNE 


9* 


BIT 


#*VTESC,LSW5< 


BEQ 


9* 


INC 


R4 


BR 


10* 


CALL 


CVTLC 


CALL 


GCECHO 


CLR 


R4 


BIT 


#ACFLAG, RO 


BNE 


6$ 


INC 


R3 


BR 


5* 



CONVERT LOWER CASE TO UPPER CASE 

ECHO IT 

CLEAR ESC SEQ FLAG 

IS THIS AN ACTIVATION CHAR? 

BRANCH IF YES 

COUNT CHARS ECHOED 



Release deferred echo mode 
4*: BIC #«D0DFR,LSW3(Rl)i BEGIN IMMEDIATE CHAR ECHOING 
i Finished 
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58 


011532 




59 


011540 


012604 


60 


011542 


012603 


61 


011544 


012602 


62 


011546 


000207 



6*: 



ENABL 

Mnv 

MOV 
MOV 
RETURN 



; ** ENABLE INTERRUPTS ** 



f BP>+- R4 
<SP)+, R3 
<SP)+, R2 



I 
i 



1 
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01 
01 



1556 
1564 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 011550 010146 

16 011552 010546 

17 011554 010401 
18 
19 
20 
21 
22 
23 
24 
25 

26 011566 

27 011572 

28 011574 
29 

30 

31 

32 011576 004737 011612' 

33 

34 

35 

36 

37 011602 000765 

38 

39 

40 

41 

42 011604 012605 

43 011606 012601 

44 011610 000207 



. SBTTL 

. SBTTL *# Fnrk I pvpI Input Chararter Prncp^ising ** 

. SBTTL TTINCP — Process received input characters 

TTINCP is called at fork level after each received character 
has been stored in the high speed input ring buffer. 
The function of TTINCP is to remove characters from the 
high speed input ring buffer and perform the TSX-Plus 
character processing which will eventually cause the character 
to be stored in the input ring buffer for the line. 

Inputs: 
R4 = Line index number 



TTINCP: MOV 
MOV 

MOV 



Rl, -<SP) 
R5, -<SP) 
R4, Rl 



032764 
001007 



004777 
103404 
010005 



OOOOOOG OOOOOOG 5*: 



OOOOOOG 



i Carry line index number in Rl too 

See if TT input ring buffer is full 

BIT #*XSTOP. LSW6<R4)j Has input been suspended due to buffer full 
BNE 9* iBr if yes 

Get next character from input silo 

;Get next character from input silo 

; Br if no characters in silo 

i Put character in R5 for GOTCHR 

Now call main routine to process a character for this line 

CALL GOTCHR ; Process a character for this line 

Finished processing a character. 

Go back and see if there are any more characters to process. 

BR 5* » Check for more characters to process 

Finished processing all pending characters for this line. 



CALL 


eSILFET 


BCS 


9* 


MOV 


RO, R5 



9*: 



MOV 


<SP>+, R5 


MOV 


<SP)+, Rl 


RETURN 





I 

I 

f 
< 

< 
f 

i 

i 

f 
c 



TSTTY ■ 
TTINCP 
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— Process received input characters 



t 
I 



1 
2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



011612 010146 



011614 
011620 



011622 
011626 
011634 



105737 
001052 



116401 
032761 
001033 



011636 
011642 
011644 
011652 



011654 
011662 
011664 
011672 
011674 
011676 
011702 
011704 
011710 



011712 
011714 
011722 



105737 
001041 
032764 
001035 



032764 
001405 

103007 
000424 
120527 
001403 
120527 
001016 



005000 
000403 



011724 
011730 
011732 
011740 



005764 
00 1 404 
042761 
000402 



A charactt»T Has hiapn forpivpri -Prom a linp 

Check to see if the line is active or needs to be started. 

Inputs: 
R4 = Physical line index number. 
R5 = Received character. 

GOTCHR: MOV R1,-(SP) 

Ignore the character if system initialization is not yet complete 



OOOOOOG 



TSTB 
BNE 



INITFLG 
9* 



; Is system initialization finished yet? 
i Br if not 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 



See if this line has been initialized yet 

MOVB LNMAP<R4),R1 ; Get virtual line index number 
BIT #*DILUP. LSW<R1) iHas line been started yet? 
BNE 1* ; Br if yes 

Line has not been initialized yet. 
See if \ne should start it now. 

TSTB STPFLG » Is a system shutdoun in progress? 

BNE 9* ; Br if yes — Don't start any lines 

BIT #*DEAD, LSW3(R4> ;Is this line marked as dead? 

BNE 9* i Br if yes 

See if ue should do autobaud speed selection for this line 

Is autobaud speed selection wanted? 
Br if not 

Do autobaud speed selection 
Br if ute should start the line now 
Do not start the line yet 
3*: CMPB R5/ #CR i Is character Carriage-return? 

Br if yes 

Is character ctrl-C? 
Br if not 



BIT 


#*AUTOi ILSW2<R4) 


BEQ 


3* 


OCALL 


AUTSPD 


BCC 


2* 


BR 


9* 


CMPB 


R5, #CR 


BEQ 


2* 


CMPB 


R5, #CTRLC 


BNE 


9* 



Start up a previously inactive line 



>*: 



CLR 


RO 


OCALL 


INITLN 


BR 


5* 



j No secondary start-up command file 
; Initialize the line 



OOOOOOG 
OOOOOOG OOOOOOG 



See if we are ignoring trash characters that may be received after 
the autobaud start-up character. 

1*: TST LABTIM<R4) ; Is autobaud masking trash characters? 

BEQ 4« ;Br if not 

5*: BIC #*RBRK,LSW10<Rl)j Clear break-received flag 

BR 9* iWait for autobaud mask time to end 

Process an input character for an active line 
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58 011742 004737 011752' 

59 

60 

61 

62 011746 012601 

63 011750 000207 



4*: CALL 


PRCHAR 


i Finished 




9$: MOV 


(SP)+, Rl 


RETURN 





; Process the character 



I 
( 

I < 

I 

I 

• i 
I 

€ 
€ 

I I 

I 
i 

I 

i 
i 
< 



TSTTY - 

TTINCP 
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— Process received input characters 



1 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



Process a character received bu an active line. 



Inputs: 
Rl = Job's virtual line index number. 
R5 = Received character. 



011752 
011754 
011756 



011760 
011764 
011772 
011774 
012000 
012006 



012010 
012014 



012016 
012024 



012026 
012032 
012034 
012036 
012040 
012044 



012046 
012052 
012054 
012056 
012062 
012066 
012070 
012072 
012074 
012076 
012100 
012104 



010246 
010346 
010446 



016104 
032764 
001406 
004737 
042764 
000554 



042705 
001551 



032761 
001054 



016102 
001405 
020502 
001003 
004737 
000535 



016102 
001424 
010500 
004737 
016103 
120023 
001402 
077203 
000404 
010005 
004737 
000515 



PRCHAR: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -(SP) 
R4, -<SP) 



OOOOOOG 
OOOOOOG OOOOOOG 

017552' 
OOOOOOG OOOOOOG 



See if we received a real break (long space). 

MOV LNPRIM(Rl), R4 > Get primary line # 

BIT #*RBRK, LSW10(R4>iDid we receive a break? 

BEQ 1* ;Br if not 

CALL SIGBRK i Signal that tue received a break 

BIC #*RBRK,LSW10(R4)i Clear break-received flag 

BR PRCEND ; Finished with break character 

Mask character to 8 bits and ignore nulls 



177400 



1*: BIC #-^C377>R5 
BEQ PRCEND 



;Mask character to 8 bits 
i Ignore null characters 



OOOOOOG OOOOOOG 



OOOOOOG 



017552 



If debugger is in control* bypass some special character processing 

BIT #*DBGMD* LSW6(R1 ); Is debugging program in control? 
BNE CKCW j If yes then bypass some checking 

See if user defined an asynchronous break character 

iDid user define an asynch break char? 

j Br if not 

i Is this the break character? 

j Br if not 

;Tell user that break char was received 



MOV 


LBRKCH<R1),R2 


BEQ 


CKSPAC 


CMP 


R5, R2 


BNE 


CKSPAC 


CALL 


SIGBRK 


BR 


PRCEND 



OOOOOOG 



017422' 
OOOOOOG 



016200 



i 

i See 


if this 


is a user-defi 


i 

CKSPAC: 


MOV 


LNSPAC<R1),R2 




BEQ 


CKVTES 




MOV 


R5, RO 




CALL 


CVTLC 




MOV 


LSPACT<R1).R3 


1*: 


CMPB 


RO, <R3) + 




BEQ 


2* 




SOB 


R2, 1* 




BR 


CKHIIN 


2*: 


MOV 


RO, R5 




CALL 


STRACT 




BR 


PRCEND 



Get number of useir — defined activation chars 

Br if there are none 

Get current character 

Convert to upper-case if needed 

Get pointer to table of activation chars 

Is this an activation character? 

Br if yes 

Loop if more to check 

This is not a usei — defined activation char 

Get converted character to R5 

Store the activation character 



See if we are in high~ef f ic ienty mode 
012106 032761 OOOOOOG OOOOOOG CKHIIN: BIT #*HITTY, LSW4 <R1 ) ; Are we in high-efficiency mode? 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



012114 
012116 
012122 



012124 
012132 
012134 
012140 
012142 
012146 
012150 
012154 



012156 
012162 
012164 
012172 
012174 
012202 
012210 
012214 
012216 
012222 
012224 
012232 
012234 
012242 
012244 
012250 
012252 
012260 
012264 
012266 
012272 
012274 
012302 



012304 
012310 
012312 
012316 
012320 
012324 
012326 
012332 
012334 



012340 
012342 



001403 
004737 
000506 



032761 
001411 
004737 
103406 
005761 
001003 
004737 
103071 



120537 
001024 
032761 
001414 
042761 
042761 
004737 
103451 
004737 
000446 
052761 
000442 
032761 
001420 
020527 
101415 
042761 
162705 
002425 
020527 



000416 



020527 
101003 
004737 
000410 
120527 
001003 
004737 
000402 
004737 



012604 
012603 



015702' 



BEQ 


CKVTES 


CALL 


RTRCHR 


BR 


PRCEND 



; Br if not 

! Storp thp rhv^TisirtPr 



See if this is a VT52 escape-letter sequence 



ooooooe ooooooG 

017222' 
OOOOOOG 
015210' 



CKVTES: BIT 
BEQ 
CALL 
BCS 
TST 
BNE 
CALL 
BCC 



#*VTESC>LSW5<R1) 

CKCW 

SCACHK 

CKCW 

LTTCR(Rl) 

CKCW 

CKVTAC 

PRCEND 



Activate on esc~letter sequence? 

Br if not 

Are we in single character activ mode? 

Br if yes 

Is terminal input cmpi rtn scheduled? 

Br if yes 

Check for escape-letter sequence 

Br if char was part of escape sequence 



Check for request to switch to a virtual line 



OOOOOOG 
OOOOOOG OOOOOOG 



CKCW: 



OOOOOOG 
OOOOOOG 
017404' 

015664' 

OOOOOOG 

OOOOOOG 

000037 

OOOOOOG 
000060 

OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 



2*: 
1*: 



CMPB 

BNE 

BIT 

BEQ 

BIC 

BIC 

CALL 

BCS 

CALL 

BR 

BIS 

BR 

BIT 

BEQ 

CMP 

BLOS 

BIC 

SUB 

BLT 

CMP 

BGT 

OCALL 

BR 



R5, VVLSCH 

1$ 

#*CTRLW, LSW3<R1) 

2$ 

#*1ESC. LSW<R1) 

#*CTRLW, LSW3<R1) 

SCACHR 

PRCEND 

INCHR 



Is this char a request to switch to vir line? 

Br if not 

Was last character also control-W? 

Br if not 

Say last char was not escape 

Say last char not control-W 

See if we are in single-char activation mode 

Br if in single-char activation mode 

Pass control-W to program as normal char 



PRCEND 

#*CTRLW, LSW3(R1 ); Remember last char was control-W 

PRCEND 

Was control-W the last character? 

Br if not 

Is current character a control character? 

Br if yes 

Say control-W is not the last char 

Convert line # digit to binary value 

Br if too small 

Don't exceed max line # allowed 

Br if too large 

Switch to a virtual line 



#*CTRLW*LSW3(R1) 

CKICTL 

R5, #37 

CKICTL 

#*CTRLW, LSW3<R1) 

#'0, R5 

PRCEND 

R5, #MAXSEC 

PRCEND 

DOSWIT 

PRCEND 



000037 

012566' 

OOOOOOG 

014652' 

012350' 



; Determine 


if this is a 


CKICTL: 


CMP 


R5, #37 




BHI 


1* 




CALL 


DOCTRL 




BR 


PRCEND 


1*: 


CMPB 


R5, #RUBOUT 




BNE 


2* 




CALL 


ICPRUB 




BR 


PRCEND 


2*: 


CALL 


REGCHR 


; Finished 




PRCEND: 


MOV 


<SP)+, R4 




MOV 


(SP)+, R3 



; Is this a normal or control char? 
* Br if not control character 
/Process a control character 

» Is this a rubout character? 

; Br if not 

/Process rubout character 

/Process a normal character 
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115 012344 012602 MOV (SP)+,R2 

116 012346 000207 RETURN 



1 



TSTTY — 
REGCHR - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Process normal characters 



. SBTTL REGCHR — Process normal characters 
Process normal (non-control) characters. 



Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



012350 010246 
012352 010546 
012354 010500 



012356 032761 
012364 001075 



012366 042761 
012374 042761 



REQCHR: MOV 
MOV 
MOV 



R2, -(SP) 
R5, -<SP) 
R5, RO 



OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



012402 004737 017262' 

012406 103003 

012410 004737 016260' 

012414 000461 



; Copy the character 

Ignore all input while processing logoff command file 

BIT #*LOFCF, LSW9(R1 )i Are we processing a logoff command file? 
BNE 9* j Br if yes — ignore the character 

Say last character was not control-C 

BIC #*1ESC, LSW<R1 ) i Say last char was not escape 

BIC #*lCTLC»LSW5<Rl)i Say last character was not control-C 

See if we btb in single character activation mode 

;Are we in single-char activation mode or SL? 

j Br if not 

; Store character and activate 



CALL 


SLCHK 


BCC 


6$ 


CALL 


STRSNG 


BR 


9* 



See if ODT is in control 



012416 032761 OOOOOOG OOOOOOG 6*: 

012424 001413 

012426 004737 015422' 

012432 103010 

012434 120027 000040 

012440 103402 

012442 004737 017040' 

012446 004737 016260' 4*: 

012452 000442 



BIT 


#*ODTMD. LSW4(R1) 


BEQ 


3* 


CALL 


CHKODT 


BCC 


3* 


CMPB 


RO, #40 


BLO 


4* 


CALL 


ECHO 


CALL 


STRSNG 


BR 


9* 



Is ODT activation in effect? 

Br if not 

Is this an ODT activation char? 

Br if not 

Is this a control character? 

Br if yes — Don't echo it 

Echo the character 

Store character and activate 



Check for activation on input of a certain number of characters 



012454 016102 OOOOOOG 

012460 001416 

012462 005302 

012464 020261 OOOOOOG 

012470 101012 

012472 032761 OOOOOOG OOOOOOG 

012500 001006 

012502 004737 017040' 

012506 010005 

012510 004737 1 6200 ' 

012514 000421 



3*: 



;Was field width activation specified? 

i Br if not 

; Is field full yet? 



MOV LAFSIZ(R1)>R2 

BEQ 1$ 

DEC R2 

CMP R2, LINCNT<R1) 

BHI 1* iBr if not 

BIT #*DBGMD* LSW6<Rl)i Is a debugger running? 

BNE 1* i Br if yes 

CALL ECHO iEcho character 

MOV R0» R5 i Save the converted character 

CALL STRACT i Store the activation character 

BR 9* 

See if we need to limit number of characters that can be 
typed into a field 
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I 
I 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



012516 016102 0000000 

012522 001414 

012524 026102 OOOOOOG 

012530 103411 

012532 032761 OOOOOOG OOOOOOG 

012540 001005 

012542 012700 OOOOOOG 

1 2546 004737 1 7 1 00 ' 

012552 000402 



012554 004737 015664 



1*: 



MOV 


I FWLIMtRl > . RP 


BEQ 


2* 


CMP 


LINCNT<R1),R2 


BLO 


2* 


BIT 


#*DBGMD, LSW6( 


BNE 


2* 


MOV 


#BELL, RO 


CALL 


ECH02 


BR 


9* 



Normal character being input 



>*: 



CALL 



012560 012605 
012562 012602 
012564 000207 



Finished 



9*: 



MOV 
MOV 
RETURN 



INCHR 



<SP)+, R5 
(SP)+, R2 



; If field width limit «5pprifiprtT' 

i Br if not 

i Would this character overflow the field? 

i Br if not 

; Is debugger in control? 

j Br if yes 

j Echo bell 

j Discard the character 



; Store and echo the character 



I 

r 
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i 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 012566 
11 
12 
13 

14 012566 

15 012572 

16 012574 

17 012602 

18 012604 

19 012610 
20 

21 
22 

23 012612 

24 012614 

25 012616 

26 012624 

27 012626 
28 

29 
30 

31 012630 

32 012632 

33 012634 
34 

35 

36 

37 012640 

38 

39 

40 

41 

42 012642 

43 012644 

44 012646 

45 012650 

46 012652 

47 012654 

48 012656 

49 012660 

50 012662 

51 012664 

52 012666 

53 012670 

54 012672 

55 012674 

56 012676 

57 012700 



SBTTL DOCTRL — Process control characters 



120537 
001016 
032761 
001412 
016100 
001407 



010246 
010002 

012602 
000404 



010500 
006300 
004770 



000207 



012350' 
012350' 
012350' 
013202' 
013532' 
012350' 
012350' 
013602' 
012350' 
012350' 
013076' 
012350' 
012350' 
012742' 
012350' 
013666' 



0000000 

ooooooe 0000000 

OOOOOOG 



DOCTRL is called from the input interrupt character processing when 

we determine that the character being processed is a control character. 

Inputs: 
Rl = Virtual line number. 
R5 = Character to process. 

DOCTRL: 

See if this is a request to print the current iDindow 

CMPB R5, VVPWCH i Request to print screen? 

BNE 1* iBr if not 

BIT #*PWKEY, LSWIKRI )j Is print windoui control char enabled? 

BEQ 1* i Br if not 

MOV LWIND0(R1 ), RO i Is windowing enabled for this process? 

BEQ 1* ; Br if not — Treat char like ordinary char 



This is a request to print the current window content! 



MOV 


R2, -(SP) 


MOV 


RO, R2 


OCALL 


WINPRT 


MOV 


<SP)+, R2 


BR 


9* 



* Get address of current window control blfc 
; Print the window 



This is an ordinary control character 



012642' 



1*: MOV 


R5, RO 


ASL 


RO 


CALL 


@CTLRTN(RO) 


i Finished 




9*: RETURN 




i Branch table 


for control 


t 

CTLRTN: . WORD 


REGCHR 


. WORD 


REGCHR 


. WORD 


REGCHR 


. WORD 


ICPCTC 


. WORD 


ICPCTD 


. WORD 


REGCHR 


. WORD 


REGCHR 


. WORD 


ICPCTG 


. WORD 


REGCHR 


- WORD 


REGCHR 


. WORD 


ICPLF 


. WORD 


REGCHR 


. WORD 


REGCHR 


. WORD 


ICPCR 


. WORD 


REGCHR 


. WORD 


ICPCTO 



iGet the control character 

; Convert to word table index 

;Call appropriate processing routine 



processing routines. 



00 
01 
02 
03 
04 
05 
06 
07 
10 
11 
12 
13 
14 
15 
16 
17 



NUL 

SOH 

STX 

ETX 

EOT 

ENQ 

ACK 

BEL 

Back 

TAB 

Line 

VT 

FF 

Carr 

SO 

SI 



<contr 

< contr 
( contr 
( contr 
( contr 
(contr 

< contr 
space 

< contr 
feed 

( contr 

< contr 
iage r 
(contr 
( contr 



ol-A) 
ol-B) 
ol~C) 
ol-D) 
ol~E) 
ol~F) 
ol-G) 

ol~I) 

ol-K) 
ol~L) 
eturn 
ol-N) 
ol~0) 



4 
I 
f 

i 
i 
i 
i 
< 
I 
I 
4 
4 
4 
4 
I 
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58 


012702 


012350' 


59 


012704 


012350' 


60 


012706 


013756' 


61 


012710 


012350' 


62 


012712 


012350' 


63 


012714 


014022' 


64 


012716 


012350' 


65 


012720 


012350' 


66 


012722 


014402' 


67 


012724 


012350' 


68 


012726 


014466' 


69 


012730 


014522' 


70 


012732 


012350' 


71 


012734 


012350' 


72 


012736 


012350' 


73 


012740 


012350' 



WORD 


REOCHR 


UORD 


RFOCHR 


WORD 


ICPCTR 


WORD 


REGCHR 


WORD 


REOCHR 


WORD 


ICPCTU 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


ICPCTX 


WORD 


REGCHR 


WORD 


ICPCTZ 


WORD 


ICPESC 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 


WORD 


REGCHR 



20 


- DLE 


(control- 


-P) 


PI 


- DCl 


( rnn-hrnl- 


-G) 


22 


- DC2 


( control- 


-R) 


23 


- DC3 


(control- 


-S) 


24 


~ DC4 


(control- 


-T) 


25 


- NAK 


(control- 


~U) 


26 


- SYN 


(control- 


-V) 


27 


- ETB 


(control- 


-W) 


30 


- CAN 


(control- 


-x> 


31 


- EM 


(control- 


-Y) 


32 


- SUB 


(control- 


-Z) 


33 


- ESC 






34 


- FS 






35 


- GS 






36 


- RS 






37 


- US 







I 
c 



i 

4 
4 
i 
i 
( 
' I 

I 
€ 

I 

< 

i 

i 

i 
i 

' i 
i 
i 
i 
i 



TSTTY - 
ICPCR 

1 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
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— Carriage-return processing 

. SBTTL ICPCR — Carriage-return processing 

Process Carriage-return character. 



012742 010546 



Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

ICPCR: MOV R5, -(SP) 

See if we are in single-character activation mode 



01 
01 
01 
01 
01 



2744 
2750 
2752 
2756 
2762 



004737 
103005 
004737 
112705 
000433 



017262' 

016200' 
OOOOOOG 



CALL 


SLCHK 


BCC 


1* 


CALL 


STRACT 


MOVE 


#LF, R5 


BR 


3* 



j Are uie in single-char activation mode? 

i Br if not 

; Pass carriage return to program 

i and follow with line feed 



We are not in single-character activation mode. 
See if ODT is running. 



01 
01 
01 
01 
01 
01 
01 



01 
01 
01 
01 
01 
01 
01 
01 
01 



01 
01 
01 
01 



2764 
2772 
2774 
2776 
3002 
3006 
3012 



3014 
3020 
3024 
3032 
3034 
3042 
3044 
3046 
3052 



3056 
3064 
3072 
3074 



032761 
001410 
010500 
004737 
012700 
004737 
000417 



004737 
112705 
032761 
001004 
032761 
001003 
010500 
004737 
004737 



042761 
042761 
012605 
000207 



OOOOOOG OOOOOOG 1*: 



017040' 
OOOOOOG 
017044' 



BIT 


#*ODTM 


BEQ 


4* 


MOV 


R5, RO 


CALL 


ECHO 


MOV 


#LF, RO 


CALL 


ECHOl 


BR 


3* 



#*ODTMD, LSW4 ( R 1 ) i I s ODT in control? 



; Br if not 

i Get the CR character 

/Echo CR 

/Get LF character 

/Echo LF 

/Store CR as activation character 



We are not in ODT mode 



015664' 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



017044' 
016200' 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



4*: CALL 
MOVB 
BIT 
BNE 
BIT 
BNE 

2$: MOV 
CALL 

3*: CALL 

Finished 

9*: BIC 
BIC 
MOV 
RETURN 



INCHR 

#LF/ R5 

#*DBGMD/LSW6<R1) 

2* 

#*NOLF, LSW6(R1) 

3* 

R5, RO 

ECHOl 

STRACT 



Store and echo CR 

We will follow CR with LF 

Is a debug program running? 

Br if yes 

Are we suppressing LF echoing after CR? 

Br if yes 

Get character to echo 

Echo line-feed 

Store activation character 



#*1CTLC/ LSW5<R1 )i Say last character was not control-C 
#*1ESC/ LSW<R1 > /Say last char was not escape 
<SP)+/R5 



i 

t 4 

I 

« 

I 
I 
I 

€ 

I 

I 
I 

I 
i 

i 
i 

i 



013076 010546 



013100 032761 0000000 0000000 
013106 001025 



013110 004737 017404 
013114 103422 



TSTTY — TSX Terminal I/O routi 
ICPLF — Line-feed processing 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
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. SBTTL ICPLF — Line-feed processing 
Process Line-feed input character. 



Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

ICPLF: MOV R5, -(SP) 

If we are in "paper-tape" modej ignore line-feed characters. 

BIT #*TAPEi LSW2<R1 ) ; Are we in paper-tape mode? 
BNE 9* j Br if yes 

See if me are in single-character activation mode 



CALL 
BCS 



SCACHR 
9* 



; See if we are in single-char activation mode 

i Br if yes 



013116 
013124 
013126 
013132 
013136 
013140 
013144 
013150 



013152 
013156 



013162 
013170 
013176 
013200 



032761 
001412 
112700 
004737 
110500 
004737 
004737 
000404 



112705 
004737 



042761 
042761 
012605 
000207 



0000000 OOOOOOG 

OOOOOOG 
017040' 

017044' 
016200' 



We are not in single-character activation mode. 
See if we are in ODT mode. 

BIT #*0DTMD>LSW4<Rl)i Is ODT in control? 

BEQ 2* iBr if not 

MOVB #CR, RO jEcho carriage return 

CALL ECHO 

MOVB R5/R0 i Get line feed character 

CALL ECHOl J Echo line-feed 

CALL STRACT J Store line feed and activate 

BR 9* 

Treat line-feed exactly like carriage-return. 



OOOOOOG 
012742' 



OOOOOOG 
OOOOOOG 



2$: MOVB 
CALL 

Finished 



#CR,R5 
ICPCR 



i Get CR character 

i Process the carriage-return 



OOOOOOG 9*: 
OOOOOOG 



BIC #*1CTLC* LSW5<R1 ); Say last character was not control-C 

BIC #*lESCi LSW<R1 ) ; Say last char was not escape 

MOV <SP)+, R5 
RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 013202 
10 013204 
11 
12 
13 

14 013206 

15 013214 
16 

17 
18 

19 013216 

20 013224 

21 013232 

22 013240 

23 013244 

24 013246 

25 013252 

26 013256 
27 

28 
29 

30 013260 

31 013266 

32 013270 

33 013276 

34 013300 

35 013306 

36 013310 

37 013316 

38 013320 

39 013324 

40 013326 

41 013334 
42 

43 
44 

45 013336 

46 013344 

47 013350 
48 

49 
50 

51 013352 

52 013360 

53 013366 

54 013374 

55 013400 

56 013406 

57 013414 



010246 
010446 



032761 
001021 



052761 
042761 
042761 
004737 
103527 
004737 
004737 



032761 
001356 
032761 
001352 
032761 
001346 
032761 
001342 
016102 
001412 
032761 
001006 



052761 
105237 
000725 



042761 
016161 
016161 
005061 
016161 
016161 
016161 



. SBTTL ICPCTC — Control-C processing 
Process a control-C input character. 



Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



ICPCTC: MOV 
MOV 



R2, -<SP) 
R4, -<SP) 



OOOOOOG OOOOOOG 



ooooooe OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
017404' 

017116' 
016200' 



7*: 



Determine if we have received 2 consecutive control-C characters. 

BIT #*1CTLC, LSW5<R1)J Was last character control-C? 
BNE 2* i Br if yes 

This is 1st control-C 

BIS #*1CTLC, LSW5(R1 ); Remember last char tuas control-C 

BIC #$lESCi LSW<R1 ) ; Say last char was not escape 

BIC #*RTCSi LSW9(R1 ) i Say we are not receiving control sequence 

CALL SCACHR ; See if we are in single-char activation mode 

BCS 9* ; Br if yes 

CALL ECOCTL iEcho "-^C" 

CALL STRACT /Store control-C as activation char 

BR 9* 



We received two consecutive control-C characters 



ooooooe OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



?*: 



BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
BIT 
BNE 
MOV 
BEQ 
BIT 
BNE 



#<*SUCFf*LOFCF>/ LSW9(R1 )i Are we doing logon/logoff processing? 



7* 

#*SCCA, LSW5<R1) 

7* 

#*NOIN, LSW3<R1) 

7* 

#*RFRSH/LSW4(R1) 

7* 

LSCCA<R1)>R2 

3* 

#*DBGMD-LSW6<R1) 

3* 



Br if yes — don't allow ctrl-C abort hen 

Suppressing control-C aborts for program? 

Br if yes 

Special no-input flag set? 

Br if yes 

Is a window refresh being done now? 

Don't allow abort during refresh 

Did user do . SCCA EMT? 

Br if not 

Is debugger in control? 

Br if yes — ignore . SCCA 



OOOOOOG OOOOOOG 
OOOOOOG 



ooooooe 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



3*: 



User did a .SCCA — Set flag to remember to tell him about ctrl-C's 

BIS #*SETCC.LSW4<R1); Remember to tell him later 
INCB DOSCHD /Request a job scheduler cycle 

BR 7* 

User did not do a .SCCA so abort him 

BIC #<LCBIT!SPCTTY>, LJSW(Rl) ; Clean out JSW 

MOV LINNXT(R1),LINPNT<R1) ;Kill all input 

MOV LINNXT<R1)>LSTACT<R1) 

CLR LINCNT<R1) 

MOV LINSIZ<R1>/LINSPC<R1) 

MOV L0TSIZ<R1)/L0TSPC<R1) ;Kill all output 

MOV L0TNXT(R1),L0TPNT(R1) 
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58 


013422 


005061 


OOOOOOG 




CLR 


LFWLIM<R1> ; 


59 


013426 


005061 


OOOOOOG 




CLR 


1 AFST7<R1 ) 


60 


013432 


042761 


OOOOOOG 


OOOOOOG 


BIC 


#*SLINI,LSW7<Rl)i 


61 


013440 


042761 


OOOOOOC 


OOOOOOG 


BIC 


#<*DODFR ! *GCECO>, 


62 


013446 


016104 


OOOOOOG 




MOV 


LNPRIM(R1).R4 ; 


63 


013452 


042764 


OOOOOOG 


OOOOOOG 


BIC 


#*CTRLS, LSW3<R4); 


64 


013460 


004737 


017116' 




CALL 


ECOCTL i 


65 


013464 


052761 


OOOOOOG 


OOOOOOG 


BIS 


#*CTRLC*LSW<R1) : 


66 


013472 


052761 


OOOOOOG 


OOOOOOG 


BIS 


#«CFKIL*LSW6<R1); 


67 


013500 


042761 


OOOOOOG 


OOOOOOG 


BIC 


#*SUSPN, LSW(Rl) ; 


68 


013506 


004737 


OOOOOOG 




CALL 


FORCEX i 


69 


013512 


005061 


OOOOOOG 




CLR 


LACTIV<R1) > 


70 
71 
72 


013516 


042761 


OOOOOOG 


OOOOOOG 


BIC 


#«1STCH, LSW3(R1) 










Finished 




73 








f 






74 


013524 


012604 




9*: 


MOV 


<SP)+, R4 


75 


013526 


012602 






MOV 


<SP)+, R2 


76 


013530 


000207 






RETURN 





No field uidth limit 

No field luidth ar t i vati on 

Say SL must reinitialize for next line 

LSW3<R1) i Reset deferred echoing 

Get primary job number 

Reset control-S output suspension 

Echo "-^C" 

Set job abort flag 

Set flag to abort all open command files 

Clear job-suspended flag 

Force execution of the job 

Say no chars received yet 



I 
I 
f 
f 



\ 



TSTTY — 


~ TSX Terminal ; 


[/D routi 


ICPCTD - 


— Controi-D processing 


1 

2 








3 








4 








5 








6 








7 








8 








9 








10 


013532 


032761 


OOOOOOG 


11 


013540 


001405 




12 


013542 


032761 


OOOOOOG 


13 


013550 


001411 




14 


013552 


000404 




15 


013554 


032761 


OOOOOOC 


16 


013562 


001404 




17 


013564 


052761 


OOOOOOC 


18 


013572 


000402 




19 








20 








21 








22 


013574 


004737 


012350' 


23 








24 








25 








26 


013600 


000207 
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SBTTL ICPCTD 



Control-D processing 



Process a Control-D character. 

This forces a debugger breakpoint if ue avs running under the debugger. 



Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



OOOOOOG ICPCTD: BIT 

BEQ 

OOOOOOG BIT 

BEQ 
BR 
BIT 
BEQ 
BIS 
BR 



OOOOOOG 2*: 
OOOOOOG 3*: 



#*INKMN, LSW4<Rl)i Are we running in TSKMDN now? 

2* > Br if not 

#*DBKMN,LSW9<Rl)i Should we debug TSKMON? 

1* ; Br if not 

3* i Yesi go force breakpoint 

#*DEBUG!*CTRLD, LSW9(R1 ); Is job running with the debugger? 

1* ; Br if not 

#*DBGBKj LSW9<R1 )i Set flag to force debug breakpoint 

9* 



> We avB not running with debugger^ treat Ctrl-D like normal character 

» 

1*: CALL REGCHR ; Store as regular character 

> 

i Finished 

9*: RETURN 



I 

4 
I 



TSTTY — TSX Terminal I/O routi 
ICPCTG — Control-G processing 



3 
4 
5 
6 
7 
8 
9 013602 032761 OOOOOOG 

10 013610 001415 

11 013612 032761 OOOOOOG 

12 013620 001403 

13 013622 004737 016260' 

14 013626 000410 
15 

16 
17 

15 013630 010500 

19 013632 004737 017040' 

20 013636 004737 016200' 

21 013642 000402 

23 

24 

25 013644 004737 012350' 

26 

27 

28 

29 013650 042761 OOOOOOG 

30 013656 042761 OOOOOOG 

31 013664 000207 
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. SBTTL ICPCTG — Control-G processing 
Process a Control-G (Bell) character. 



Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



OOOOOOG ICPCTG: BIT 

BEQ 

OOOOOOG BIT 

BEQ 
CALL 
BR 



#SPCTTY» LJSW(R1 )i Is special character processing wanted? 

2* i Br if not 

#*CHACT» LSW5(R1 >» Is single character activation wanted? 

1* * Br if not 

STRSNG ; Store the character 

9* 



Special-TTY mode is set but not single character activation 

1«: MOV R5, RO ; Get char to echo 

i Echo a bell 
i Store and activate 



MOV 


R5, RO 


CALL 


ECHO 


CALL 


STRACT 


BR 


9* 



Normal character processing 
2*: CALL REGCHR 
Finished 



; Treat as regular character 



OOOOOOG 9«: 
OOOOOOG 



BIC #*1CTLC* LSW5(Rl)i Say last character was not control-C 
BIC #*1ESC/ LSW<R1 ) i Say last char was not escape 
RETURN 



TSTTY — TSX Terminal I/O routi 
ICPCTO — Control-0 processing 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



13666 
13674 



13676 
13704 
13712 
13716 
13724 
13732 
13734 
13740 



13742 
13750 



032761 
001022 



016161 
016161 
004737 
052761 
026127 
001010 
004737 
000405 



042761 
004737 



0000000 0000000 
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. SBTTL ICPCTO — Control-0 processing 

Process a Control-0 input character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

ICPCTO: BIT #*CTRLO, LSW3<R1 >i Is output currently suppressed? 
BNE 1* j Br if yes (reenable it) 



OOOOOOG 
0000000 
017116' 
OOOOOOG 
OOOOOOG 

005744 ' 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



Begin suppressing output 

MOV L0TSIZ<R1)>L0TSPC<R1) i Empty output buffer 

MOV L0TNXT<R1)>L0TPNT<R1> 

CALL ECOCTL iEcho "'"0" 

BIS #*CTRLO» LSW3<R1 )» Remember output is being suppressed 

CMP LSTATE<R1)>#S*0TWT ; Is job waiting for output space? 

BNE 2* ;Br if not 

CALL OTREGO j Reactivate the job 

BR 2* 



Reenable output 



OOOOOOG 
017116' 



OOOOOOG 1*: 



BIC 
CALL 



#*CTRLOi LSW3(R1 )i Remove output suppression 
ECOCTL iEcho "-^O" 



013754 000207 



Finished 
2$: RETURN 



TSTTY — 


- TSX Terminal I/O routi 


ICPCTR - 


— Contr 


ol-R processing 


1 

2 








3 








4 








5 








6 








7 








8 








9 


013756 


010246 




10 


013760 


004737 


OOOOOOG 


11 


013764 


004737 


017404' 


12 


013770 


103412 




13 








14 








15 








16 


013772 


004737 


017116' 


17 


013776 


016102 


OOOOOOG 


18 


014002 


004737 


016320' 


19 


014006 


103403 




20 


014010 


004737 


017044' 


21 


014014 


000772 




22 








23 








24 








25 


014016 


012602 




26 


014020 


000207 





MACRO V05. 04 Monday 25-Jan-88 08:31 Page 59 



. SBTTL ICPCTR — Control-R processing 
Process control-R input character. 



Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



ICPCTR: MOV 
CALL 
CALL 
BCS 



R2, -<SP) 
BRKPT 
SCACHR 
9* 



4*: 

1*: 



9*: 



CALL 


ECOCTL 


MOV 


LSTACT<R1),R2 


CALL 


FETCHR 


BCS 


9* 


CALL 


ECHOl 


BR 


1* 


Finished 




MOV 


<SP)+, R2 


RETURN 





iCall TSEXEC for debugging breakpoint 
i Is job in single-char activation mode? 
J Br if yes 



Redisplay the current input line 



Echo "•'^R" 

Point past last activation char 

Get next char from TT input buffer 

Br if no more characters 

Echo the character 

Continue printing line 



i 
i 
i 
I 
i 
i 



TSTTY ™ TSX Terminal I/O routi 
ICPCTU — Control-U processing 



1 
2 
3 
4 
5 
6 
7 
8 
9 
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. SBTTL ICPCTU — Control-U processing 
Process a Control-U character. 



Inputs: 
Rl - Virtual line index number. 
R5 = Current input character. 



014022 
10 014024 
11 
12 
13 

14 014026 

15 014034 
16 

17 
IS 

19 014042 

20 014046 
21 

22 
23 

24 014050 

25 014056 

26 014064 
27 

28 
29 

30 014066 

31 014074 
32 

33 
34 

35 014076 

36 014102 
37 

38 
39 

40 014104 

41 014112 

42 014114 

43 014120 

44 014124 

45 014130 

46 014134 

47 014136 

48 014140 

49 014146 

50 014150 

51 014156 

52 014160 

53 014162 
54 

55 
56 
57 014164 



OOOOOOG 
OOOOOOG 



017404' 



OOOOOOG 
OOOOOOG 



010246 
010346 



042761 
042761 



004737 
103545 



042761 
032761 
001133 



032761 
001003 



004737 
000524 



032761 
001523 
116103 
042703 
116102 
042702 
160203 
003506 
126127 
001056 
032761 
001452 
005702 
001005 



112700 OOOOOOG 



ICPCTU: MOV 
MOV 



R2, -<SP) 
R3, -<SP) 



OOOOOOG 
OOOOOOG 



Remember that last character was not escape or control-C 

BIC #*1CTLC> LSW5(R1 )» Last character was not control-C 
BIC #$1ESC> LSW(R1 } j Say last char tuas not escape 

Determine if uie are in single-character activation mode 



CALL 
BCS 



SCACHR 
27* 



j See if we are in single-char activation mode 

i Br if yes 



OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



We are not in single-charactr activation mode 

BIC #*RB0UT,LSW3<Rl)i Reset rubout mode 

BIT #*D0DFR,LSW3(R1); Doing deferred echoing? 

BNE 5* ; Br if yes 

Determine if this is a scope type terminal 

BIT #*SCOPE, LSW2<R1); Is this a scope terminal? 
BNE 15* i Br if yes 

Echo "•'^U" for non-scope terminals 



017116' 



CALL 
BR 



ECOCTL 
5* 



iEcho "'^U" 

> Go delete the characters 



Do line erase for scope terminals 



OOOOOOG OOOOOOG 15*: 

OOOOOOG 
177400 
OOOOOOG 
177400 



OOOOOOG 
OOOOOOC 



OOOOOOG 
OOOOOOG 



BIT 

BEQ 

MOVB 

BIC 

MOVB 

BIC 

SUB 

CMPB 

BNE 

BIT 

BEQ 

TST 

BNE 



#*1STCH, LSW3<R1) 

27* 

LC0L(R1),R3 

#•"^0377. R3 

LINCUR<R1),R2 

#•'^0377, R2 

R2, R3 

5* 



Any characters received yet? 

Br if not 

Get current column position 

Kill sign extension 

Get start of line position 

Kill sign extension 

Get # of columns in field being erased 

Br if nothing to erase 



LRBFIL<R1 >. tSPACEi Is rubout filler char = space? 

8* /Br if not 

#VT52 !VT100!VT2007)VT2008i HAZEL, LTRMTP(Rl) ; Can me line erase? 

8* i Br if not 

R2 ; Are me erasing entire line? 

10* i Br if not 



Going to start of line. Use carriage-return to get there. 

MOVB #CR/ RO ; Send carriage return to terminal 



( 
I 

4 
I 



\ 



TSTTY — 
ICPCTU - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 

eo 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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014170 
014174 



014176 
014202 
014206 



014210 
014214 
014220 
014226 
014230 
014234 
014240 
014242 
014246 
014252 
014254 
014260 
014262 
014264 
014270 
014272 
014276 
014302 



014304 
014310 
014316 
014320 
014324 
014330 
014334 
014336 
014342 
014346 
014352 



014354 
014360 



014362 
014364 
014366 



004737 
000405 



1 1 2700 
004737 
077303 



012703 

116100 

032760 

001014 

016100 

032700 

001007 

012703 

032700 

001002 

012703 

112300 

001434 

120027 000037 

101402 

105361 

004737 

000766 



116102 
032761 
001402 
112702 
112700 
004737 
110200 
004737 
1 1 2700 
004737 
077314 



004737 
103375 



012603 
012602 
000207 



015572' 



CALL 
BR 



PUTCH2 
1 1* 



Not going to start of line. Use backspaces to get to start of field. 



OOOOOOG 
017044' 



10*: MOVB #BKSPAC, RO 
12*: CALL ECHOl 
SOB R3, 12* 



; Get backspace character 

; Send backspace to terminal 

/Send enough to get to start of field 



Use scope control sequence to erase the line 



014370' 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

014377' 
OOOOOOG 

014373' 



11*: 



OOOOOOG 



OOOOOOG 
003122' 



OOOOOOG 
OOOOOOG 

000040 

OOOOOOG 

017044' 

017044' 
OOOOOOG 
017044' 



13*: 



14*: 



MOV 


#ERV52, R3 


MOVB 


LNPRIM<R1),R0 


BIT 


#*V52EM, LSWll 


BNE 


13* 


MOV 


LTRMTP(R1),R0 


BIT 


#VT52, RO 


BNE 


13* 


MOV 


#ERHAZL, R3 


BIT 


#HAZEL, RO 


BNE 


13* 


MOV 


#ERV100, R3 


MOVB 


(R3)+, RO 


BEQ 


5* 


CMPB 


RO, #37 


BLOS 


14* 


DECB 


LCOL(Rl) 


CALL 


PUTCH2 


BR 


13* 



; Assume this is a VT52 terminal 
; Get primary job index number 
>);Are we emulating a VT52? 

Br if yes 

Get terminal type code 

Is this a VT52 terminal? 

Br if yes 

Assume hazeltine terminal 

Is this a Hazeltine terminal? 

Br if yes 

Assume this is a VTIOO or VT200 

Get next char from control sequence 

Br if end reached 

Is this a control or printing character 

Br if control character 

Correct column counter if sending printing ch 

Send character to terminal 

Continue sending control sequence 



9*: 



Kill all input characters by sending 
backspace-space-backspace. . . 

8*: MOVB LRBFIL<R1),R2 ; Get rubout-f i 1 ler character 
OOOOOOG BIT #*DBGMD, LSW6(R1); Is debugger doing I/O now? 

i Br if not 
/Use blank for debugger rubout 

i Send bac kspace 

J Get rubout-f iller character 

/Send filler character 

/ Send backspace 

/Loop on number of characters to kill 

Now delete characters from the input buffer 



MOVB 


LRBFIL<R1) 


BIT 


#*DBGMD/ LS 


BEQ 


9* 


MOVB 


#' /R2 


MOVB 


#BKSPAC, RO 


CALL 


ECHOl 


MOVB 


R2/ RO 


CALL 


ECHOl 


MOVB 


#BKSPAC. RO 


CALL 


ECHOl 


SOB 


R3, 9* 



5*: CALL 
BCC 

Finished 



27*: 



MOV 
MOV 
RETURN 



KILCHR 
5* 



(SP)+/R3 
<SP)+/R2 



/Kill last character in the buffer 
/Loop if more left to kill 



Terminal control sequences to erase a line. 



I 



4 
I 
€ 
4 
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ICPCTU — Control-U processing 

i 

000 ERV52. BYTE ESC. 113. O ; VT52 

113 ERVIOO: .BYTE ESC, 133, 1 13, ; VTIOO and VT200 

000 ERHAZL: .BYTE 176,17,0 ;Hazeltine 
. EVEN 



115 








116 


014370 


OOOG 


113 


117 


014373 


oooe 


133 




014376 


000 




118 


014377 


176 


017 


119 









i 
I 



TSTTY — 
ICPCTX - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



" TSX Terminal I/O routi 
— Control-X processing 



014410 
014412 
014420 
014422 
014426 



014430 
014432 
014436 
014442 



032761 
001415 
032761 
001403 
004737 
000410 



010500 
004737 
004737 
000402 



0000000 
OOOOOOG 
016260' 
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. SBTTL ICPCTX — Control-X processing 

Process a Control-X character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

OOOOOOG ICPCTX: BIT #SPCTTY, LJSW(R1 ); Is special character processing wanted? 

BEQ 2« ;Br if not 

OOOOOOG BIT #*CHACT, LSW5<Rl)i Is single character activation wanted? 

BEQ 1* ; Br if not 

CALL STRSNO i Store the character 

BR 9* 

Special-TTY mode is set but not single character activation 



t 
I 



1*: 



017116' 
016200' 



MOV 


R5, RO 


CALL 


ECOCTL 


CALL 


STRACT 


BR 


9* 



J Get char to echo 

iEcho"'^X" 

i Store the character and activate 



014444 004737 012350' 



014450 
014456 
014464 



042761 
042761 
000207 



Normal character processing 
2*: CALL REGCHR 
Finished 



; Treat as regular character 



OOOOOOG 
OOOOOOG 



OOOOOOG 9*: 
OOOOOOG 



BIC #*lCTLC,LSW5<Rl)i Say last character uias not control-C 
BIC #*1ESC, LSW<R1 ) i Say last char was not escape 
RETURN 



TSTTY - 
ICPCTZ 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 



014466 004737 017404 

014472 103404 

014474 004737 017116 

014500 004737 016200 
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- Control-Z processing 

. SBTTL ICPCTZ — Control-Z processing 

Process Control-Z character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



ICPCTZ: CALL 
BCS 
CALL 
CALL 



SCACHR 
9* 

ECOCTL 
STRACT 



; Are we in single character activation mode? 

; Br if yes 

iEcho "^-1" 

; Store character and activate 



014504 042761 
014512 042761 
014520 000207 



ooooooe ooooooG 9*: 

OOOOOOG OOOOOOG 



Say last character was not escape or control-C 

BIC #*1CTLC> LSW5(Ri>i Say last character was not control-C 
BIC #*1ESC» LSW(R1 ) /Say last char was not escape 
RETURN 



4 
< 
4 



017262' 
OOOOOOG 
OOOOOOG 
016260' 



TSTTY — TSX Terminal I/O routi 
ICPESC — Escape processing 

1 
2 
3 
4 
5 
6 
7 
8 
9 014522 004737 

10 014526 103410 

11 014530 032761 

12 014536 001407 

13 014540 032761 

14 014546 001412 

15 014550 004737 

16 014554 000432 
17 

18 
19 

20 014556 112700 000044 

21 014562 004737 017040' 

22 014566 004737 015702' 

23 014572 000423 
24 

25 
26 
27 

28 014574 112700 

29 014600 004737 

30 014604 032761 

31 014612 001006 

32 014614 004737 

33 014620 052761 

34 014626 000405 

35 014630 004737 

36 014634 042761 
37 
38 
39 

40 014642 042761 

41 014650 000207 
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. SBTTL ICPESC — Escape processing 

Process an escape character. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 



OOOOOOG 
OOOOOOG 



ICPESC: CALL 
BCS 
BIT 
BEQ 
BIT 
BEQ 

4*: CALL 
BR 



SLCHK ;See if SL should get escape 

4* i Br if SL wants characters 

#SPCTTY, LJSW<Rl)i Is job in special TTY mode? 

1* i Br if not 

#*CHACT* LSW5(R1 )> Is single char activation enabled? 

2* i Br if not 

STRSNG ; Store and activate 

9* 



Escape and not single character activation 
1*: MOVB #'*, RO iEcho "*" 

i Store escape as non-activation char 

Program is in special-TTY mode but single character activation 
is not enabled. 



MOVB 


#'*, RO 


CALL 


ECHO 


CALL 


STRCHR 


BR 


9* 



000044 

017040' 
OOOOOOG 

015702' 
OOOOOOG 

016200' 
OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 



2*: MOVB 
CALL 
BIT 
BNE 
CALL 
BIS 
BR 

3*: CALL 
BIC 

Finished 



#'*, RO 

ECHO 

#*1ESC>LSW<R1> 

3* 

STRCHR 

#*lESC,LSW<Ri) 

9* 

STRACT 

#*1ESC, LSW<R1) 



iEcho "*" 

; Was last character ESC? 

> Bt if yes 

; Store the escape 

> Remember that last char is escape 

; Store escape and activate 
i Say last char uas not escape 



OOOOOOG OOOOOOG 9*: 



BIC 
RETURN 



#*1CTLC/ LSW5<R1); Say last character was not control-C 



TSTTY — TSX Terminal I/O routi 
ICPRUB — Rubout processing 



1 

2 

3 

4 

5 

6 

7 

8 

9 014652 
10 014654 
11 
12 
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. SBTTL ICPRUB — Rubout processing 
Process a rubout character. 



Inputs: 
Ri = Virtual line number 
R5 = Rubout character. 



13 

14 014656 

15 014664 
16 

17 
18 

19 014672 

20 014676 
21 

22 
23 

24 014700 

25 014706 

26 014710 

27 014716 

28 014720 

29 014726 
30 

31 
32 
33 

34 014730 

35 014736 

36 014740 

37 014744 

38 014750 

39 014756 

40 014762 

41 014764 

42 014770 
43 

44 
45 

46 014772 

47 014776 

48 015000 

49 015004 
50 

51 
52 
53 

54 015006 

55 015012 

56 015016 

57 015022 



010246 
010346 



042761 
042761 



004737 
103541 



032761 
001004 
032761 
001417 
032761 
001021 



ICPRUB: MOV 
MOV 



R2, -(SP) 
R3, -(SP) 



OOOOOOG 
OOOOOOG 



017404 



OOOOOOG 
OOOOOOG 



Remember that last character was not control~C 

BIC #*1CTLC, LSW5<R1>; Last character mas not control-C 
BIC #$1ESC« LSW<R1 ) ; Say last char uas not escape 

See if me are in single-character activation mode 



CALL 
BCS 



SCACHR 
2* 



; Are we in single-char activation mode 
; Br if yes 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



We are not in single character activation mode. 

BIT #*ECHO, LSW2<R1) i Is echoing turned on? 
BNE 12* ;Br if yes 

BIT #*DBGMD, LSW6<Rl)i Is debugger in control? 
BEQ 30* >Br if not 

12*: BIT #*SC0PE>LSW2(Rl)i Scope type terminal? 
BNE 27* > Br if yes 

Rubout on non-scope terminal. 

Echo \xxx\ type rubout sequence. 



032761 
001007 
112700 
004737 
052761 
004737 
103507 
004737 
000504 



004737 
103501 
120027 
001044 



OOOOOOG OOOOOOG 



000134 
017044' 
OOOOOOG 
015572' 

017044' 



OOOOOOG 



30*: 



BIT 


#*RBOUT, LSW3(R1) 


BNE 


30* 


MOVB 


#'\, RO 


CALL 


ECHOl 


BIS 


#*RBOUT, LSW3(R1) 


CALL 


KILCHR 


BCS 


2* 


CALL 


ECHOl 


BR 


2* 



Are ue already doing rubout sequence? 

Br if yes 

Get backslash to begin rubout sequence 

Echo "\" 

Say we have started rubout sequence 

Delete one character from buffer 

Br if no char to delete 

Echo deleted char 



Do backspace editing for scope type terminals 



015572' 
OOOOOOG 



27*: 



CALL 


KILCHR 


BCS 


2* 


CMPB 


RO, #TAB 


BNE 


10* 



j Delete one character from buffer 

; Br if no character was left to delete 

iDid we delete a tab character? 



116103 OOOOOOG 

042703 177400 

016102 OOOOOOG 

004737 016320' 



We just deleted a tab character. 
Do correct backspacing. 

MOVB LINCUR<R1),R3 ; Position of start of line 

BIC #-'^C377, R3 ;Kill sign extension 

MOV LSTACT(R1)>R2 i Start of input string 

3*: CALL FETCHR ; Get next char from TT input buffer 



I 

^ 
f 
< 

i 



I 

( 

4 
4 
I 



i 
\ 



t 

4 
I 



TSTTY — 
ICPRUB - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
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015026 
015030 
015034 
015036 
015042 
015046 
015050 
015054 
015056 
015060 
015062 
015064 
015066 
015070 
015074 
015100 
015102 
015106 
015112 
015114 



015116 
015122 
015124 
015130 
015134 



015136 
015142 
015146 
015152 
015160 
015162 
015166 
015172 
015176 



015202 
015204 
015206 



103417 
120027 
001005 
062703 
042703 
000765 
120027 
001002 
005303 
000760 
005203 
000756 
010302 
062702 
042702 
160302 
012700 
004737 
077203 
000432 



120027 
001005 
112700 
004737 
000422 



112700 
004737 
116100 
032761 
001402 
112700 
004737 
112700 
004737 



012603 
012602 
000207 



OOOOOOG 

000010 
000007 

OOOOOOG 



000010 
000007 

OOOOOOG 
017044' 



OOOOOOG 

OOOOOOG 
017044' 





BCS 


6$ 






CMPB 


RO. 


«TAR 




BNE 


7* 






ADD 


#8. 


,R3 




BIC 


#7, 


R3 




BR 


3* 




7«: 


CMPB 


RO, 


#BKSPAC 




BNE 


5* 






DEC 


R3 






BR 


3* 




5*: 


INC 


R3 






BR 


3* 




6*: 


MOV 


R3, 


R2 




ADD 


#8. 


,R2 




BIC 


#7, 


R2 




SUB 


R3, 


R2 




MOV 


#BKSPAC,RO 


9$; 


CALL 


ECHOl 




SOB 


R2, 


9* 




BR 


2* 





; Br if no more characters 

i Is rharacter a tabT' 

; Br if not 

/Calculate spaces over it 



; Was character backspace? 

; Br if not 

j Backup cursor position 

> Advance cursor for normal character 

j Save position in front of last tab 
iCalc position after tab 

;Calc number of backspace needed 
J Now backspace cursor 
{Backspace over tab columns 



Check for rubout of backspace character 



10*: 



CMPB 


ROi #BKSPAC 


BNE 


11* 


MOVB 


#SPACE, RO 


CALL 


ECHOl 


BR 


2* 



J Is deleted character a backspace? 

i Br if not 

/Output a space to kill the backspace 



Rubout of regular character. 
Echo backspace-space-backspace 



OOOOOOG 
017044' 
OOOOOOG 
OOOOOOG OOOOOOG 

000040 
017044' 
OOOOOOG 
017044' 



11*: MOVB 
CALL 
MOVB 
BIT 
BEQ 
MOVB 

13*: CALL 
MOVB 
CALL 

Fini shed 

>*: MOV 
MOV 
RETURN 



#BKSPAC/ RO iEcho backspace 

ECHOl 

LRBFIL<R1 >> RO ; Get rubout-f i 1 ler character 

#*DBGMD/ LSW6<R1 ); Is a debugger running? 

13* i Br if not 

#' / RO i Use space for debugger rubout 

ECHOl /Echo rubout-f iller character 

#BKSPAC/ RO /Now echo backspace 

ECHOl 



<SP)+/ R3 
(SP)+/R2 



TSTTY — TSX Terminal I/O routi 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 015210 
15 
16 
17 
IS 

19 Oil 

20 Oil 

21 Oil 



.5210 
,5214 
.5216 



23 01 

24 01 

25 01 

26 01 

27 01 
28 
29 
30 

31 01 

32 01 
33 
34 

35 

36 01 

37 01 
38 
39 
40 

41 

42 01 

43 01 

44 01 

45 01 

46 01 

47 01 

48 01 

49 01 

50 01 

51 01 

52 01 

53 01 

54 01 
55 

56 
57 



C7cm wCw 

5234 
5240 
5242 
5246 



5250 
5256 



5260 
5266 



120527 
001007 
052761 
052761 
000450 
120527 
001403 
120527 
001004 



052761 
000433 



032761 
001453 



000033 

OOOOOOG 
OOOOOOG 

000233 

000217 
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letter activation 

. SBTTL CKVTAC — Check for VTxx escape-letter activation 

We are activating on VTxx escape-letter sequences. 
See if this is one and me should activate. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

Outputs: 
C-fiag cleared ==> Character was totally processed here. 
C-flag set ==> Character uias not processed by us. 

CKVTAC: 

See if this character is ESC> CSIi or SS3 which starts a terminal 
control sequence. 

Is character ESCT' 
Br if not 

Remember last char u>as an escape 
Say we are receiving a control sequence 
Char is part of sequence 
1*: CMPB R5, #233 ; Is character CSI? 

Br if yes 
Is character SS3? 
Br if not 



OOOOOOG 
OOOOOOG 



CMPB 


R5, #33 


BNE 


1* 


BIS 


#*1ESC,LSW<R1) 


BIS 


#*RTCS, LSW9<R1) 


BR 


15* 


CMPB 


R5, #233 


BEQ 


14$ 


CMPB 


R5, #217 


BNE 


2* 



This character begins a new control sequence 



OOOOOOG OOOOOOG 14*: 



BIS #*RTCSi LSW9<R1 ) i Say we are receiving a control sequence 
BR 3* i Go store the character 



OOOOOOG OOOOOOG 2*: 



5270 
5274 
5276 
5302 
5304 
5310 
5312 
5320 
5322 
5324 
5330 
5332 
5336 



120527 
103424 
120527 
101010 
120527 
001013 
032761 
001407 
000411 
120527 
103406 
120527 
101003 



000101 
000132 
000117 
OOOOOOG OOOOOOG 

000141 
000176 



7*: 



See if this character is part of a terminal control sequence 

BIT #*RTCS, LSW9<R1 > ; Are we currently receiving a control seq? 
BEQ 8* i Br if not 

We are currently receiving a terminal control sequence. 
See if this character terminates the sequence. 

i Is this a uppei — case letter? 
; Br if not 

Br if not upper-case letter 

Letter 0? 

Br if not 

Was last character ESC? 

Br if not 

ESC is equivalent to SS3 

Is this a lower-case letter? 

Br if not 

Lower case letter or *" 

Br if not 

This character terminates the control sequence 



CMPB 


R5.#'A 


BLO 


3* 


CMPB 


R5,#'Z 


BHI 


7* 


CMPB 


R5, #'0 


BNE 


4* 


BIT 


#*1ESC,LSW<R1) 


BEQ 


4* 


BR 


3* 


CMPB 


R5, #141 


BLO 


3* 


CMPB 


R5i #176 


BHI 


3* 
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€ 

€ 
€ 



5340 042761 0000000 OOOOOOG 4*: BIC »*RTCS, LSW9<R1 ) i Say no longer receiving control sequence 

i This character is part of control sequence — Pass to program 



58 01 
59 
60 
61 

62 01 

63 01 

64 01 

65 01 

66 01 

67 01 

68 01 

69 01 

70 01 

71 01 

72 01 

73 01 
74 

75 

76 

77 015416 000261 

78 

79 

SO 

81 015420 000207 



5346 
5354 
5356 
5362 
5366 
5370 
5376 
5400 
5404 
5406 
5412 
5414 



042761 
010546 
012705 
004737 
012605 
032761 
001403 
004737 
000402 
004737 
000241 
000401 



OOOOOOG 

OOOOOOG 
015702' 



OOOOOOG 3*: 
15*: 



OOOOOOG OOOOOOG 

015702' 

016200' 



5*: 
6*: 



BIC 


#*1ESC, LSW<R1> 


MOV 


R5, -(SP) 


MOV 


#ESCFLG, R5 


CALL 


STRCHR 


MOV 


<SP)+, R5 


BIT 


#*RTCS, LSW9<R1) 


BEQ 


5* 


CALL 


STRCHR 


BR 


6* 


CALL 


STRACT 


CLC 




BR 


9* 



Say last char ujas not escape 

Save the character 

Get char that says escape sequence follows 

Store flag character 

Recover real character 

Have uie terminated the sequence? 

Br if yes 

Store char that is part of sequence 

.•Store char as activation character 

; Say ute finished processing the character 



This character is not part of a control sequence 

SEC i Signal char is not part of sequence 

; Finished 
9*: RETURN 



8*: 

> 
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I 
< 
I 



1 








2 








3 








4 








5 








6 








7 








e 








9 








10 








11 








12 


015422 


032761 


OOOOOOG 


13 


015430 


001417 




14 








15 








16 








17 








18 


015432 


120027 


000054 


19 


015436 


001414 




20 


015440 


120027 


000044 


21 


015444 


001411 




22 


015446 


120027 


000073 


23 


015452 


001406 




24 


015454 


120027 


000060 


25 


015460 


103405 




26 


015462 


120027 


000071 


27 


015466 


101002 




28 








29 








30 








31 


015470 


000241 




32 


015472 


000207 




33 








34 








35 








36 


015474 


000261 




37 


015476 


000207 





SBTTL CHKODT 



Check for ODT activation characters 



CHKODT is called to determine whether ODT character 

activation is desired and tuhether the character in RO 

is an ODT activation character. 

When called RO must contain the character to be tested 

and Rl must contain the user index number. 

On return the c~flag is set if the character is an 

ODT activation character. 

All registers are preserved. 



OOOOOOG CHKODT: BIT 

BEQ 



#*0DTMD»LSW4(R1);0DT ACTIVATION DESIRED? 
1* i BRANCH IF NOT 



User does want odt activation. 
Is this an ODT activation char? 



CMPB 


RO, #', 


BEQ 


1* 


CMPB 


RO, #'* 


BEQ 


1* 


CMPB 


RO,#'i 


BEQ 


1* 


CMPB 


RO, #'0 


BLO 


2* 


CMPB 


RO, #'9 


BHI 


2* 



1*: 



2*: 



Not activation character. 

CLC 
RETURN 

Got activation char. 

SEC 
RETURN 



; DON'T ACTIVATE ON ', 

; OR '*' 

; OR 'i ' 

i IS THIS A DIGIT? 

i BRANCH IF NOT DIGIT 

i BRANCH IF NOT DIGIT 
; CLEAR C-FLAG 



} SET C-FLAG 



015500 010246 



015502 
015506 
015510 

015514 
015516 



015522 
015526 
015530 



004737 
103003 
012700 
000402 
012700 



016102 
020200 
101416 



017262' 
OOOOOOG 
OOOOOOG 

OOOOOOG 



TSTTY — TSX Terminal I/O routi MACRO 
INFIN — TT input wait completed 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
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015532 
015536 
015540 
015544 



020227 
001003 
005061 
000406 



OOOOOOG 
OOOOOOG 



015546 
015552 



020227 OOOOOOG 
103005 



015554 
015560 



005761 
001402 



OOOOOOG 



015562 004737 OOOOOOG 



015566 
015570 



012602 
000207 



. SBTTL INFIN 



TT input wait completed 



INFIN — Routine to add the user whose line index # is 
in Rl to the end of the TTFN queue if the user is 
currently waiting for input. 

Inputs: 
Rl = Virtual line number of job being activated. 



INFIN: MOV R2, -(SP) 

Determine which state to put job in 



CALL 


SLCHK 


BCC 


2t 


MOV 


#S*TTSC, RO 


BR 


3* 


MOV 


#S*TTFN, RO 



; Is program doing single character activation? 
i Br if not 



; If yes> put job in special high-prio state 
BR 3* 
2*: MOV #S*TTFN. RO i Put user in normal input-done state 

If job is already in at least this high a priority state* leave it alone 

3*: MOV LSTATE(R1 )* R2 i Get job's current execution state 

CMP R2, RO > Is job already at that high a priority? 

BLOS 9* i Br if yes — Don't change its priority 

Job's current execution priority is lower than that associated 
with receiving an activation character. 

If job is currently waiting for an activation character* boost its 
priority to get it running again. 



CMP R2, #S*INWT 

BNE 4* 

CLR LRDTIM<R1) 

BR 1* 



; Is job waiting for TT input? 

; Br if not 

; Clear TT read time-out counter 

i Go boost priority of job to get it running 



Job is not waiting for TT input. 

If job is in any other wait state* leave it alone. 



4$: 



CMP R2, #S**RUN 
BHIS 9* 



i Is job in a wait stateT' 

* Br if yes — Leave it alone 



Job is not in a wait state. 

If job is still classified as "interactive"* give it a prio boost. 



TST LITIME<R1> 

BEQ 9$ 

Boost priority of job 

1*: CALL ENQTL 

Finished 

9*: MOV (SP)+*R2 
RETURN 



* Is job still interactive? 

* Br if not 



j Requeue job at tail of high-prio queue 



I 
I 



TSTTY — 
KILCHR - 

1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
1 1 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 
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— Delete a character from input buffer 



015572 010246 
015574 010346 



015576 005761 
015602 001424 



OOOOOOG 



015604 016102 OOOOOOG 

015610 005302 

015612 020261 OOOOOOG 

015616 103003 

015620 016102 OOOOOOG 

015624 005302 

015626 010203 

015630 004737 016320' 



015634 032700 

015640 001005 

015642 010302 

015644 004737 



015650 000241 



OOOOOOG 



016612' 



01565c 



000401 



015654 000261 



015656 012603 
015660 012602 
015662 000207 



. SBTTL KILCHR 



Delete a character from input buffer 



KILCHR is called to delete a character 
from the input buffer. 

Inputs: 
Rl = user index #. 

Outputs: 
The C~flag is set on attempt to delete activation char. 
RO = The character that tuas deleted. 



KILCHR: 



MOV 
MOV 



R2. -(SP) 
R3i -(SP) 



See if there are any characters in the TT input ring buffer 



TST LINCNT<R1) 
BEQ 3* 



iANY CHARS IN BUFFER NOW? 
; IF NOT NOTHING TO DELETE 



1*: 



Locate the last character in the TT input buffer 

Get pointer past last char in buffer 
Point to last char in buffer 
Did we go past front of buffer? 
Br if not 

Get pointer past right end of buffer 
Get pointer to last char in buffer 
Save pointer to character being deleted 
Get the last character in the buffer 

Delete the last character unless it is an activation character 

i Is this character an activation char? 
j Br if yes 

j Get pointer to character to delete 
i Delete the character 

We successfully deleted a character 



MOV 


LINNXT(R1),R2 


DEC 


R2 


CMP 


R2iLINBUF<Rl) 


BHIS 


1* 


MOV 


LINEND<R1),R2 


DEC 


R2 


MOV 


R2>R3 


CALL 


FETCHR 



BIT 


#ACFLAG, RO 


BNE 


3* 


MOV 


R3, R2 


CALL 


DELCHR 



?*: 



CLC 
BR 



9* 



;SAY CHAR WAS DELETED 

; Finished 



There are no characters to delete 
3*: SEC j Signal that there are no chars to delete 

Finished 
9*: 



MOV 
MOV 
RETURN 



(SP)+, R3 
<SP)+, R2 
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1 
2 
3 
4 
5 
6 

7 015664 004737 015702' 

8 015670 103403 

9 015672 010500 

10 015674 004737 017040' 

11 015700 000207 



. SBTTL INCHR — Store and echo a character 

INCHR is called to store and echo the 

input character in Rb. 

the user's index # must be in Rl. 



INCHR: 



1$: 



CALL 


STRCHR 


BCS 


1$ 


MOV 


R5, RO 


CALL 


ECHO 


RETURN 





STORE THE CHARACTER 
BR IF INPUT BUFFER OVERFLOW 
GET CHARACTER INTO RO FOR ECHO 
ECHO THE CHARACTER 
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f 

€ 



1 

2 








3 








4 








5 








6 








7 








8 








9 


015702 


010046 




10 


015704 


010246 




11 


015706 


010346 




12 








13 








14 








15 


015710 


032761 


OOOOOOC OOOOOOG 


16 


015716 


001006 




17 


015720 


052761 


OOOOOOG OOOOOOG 


IS 


015726 


116161 


OOOOOOG OOOOOOG 


19 








20 








21 








22 


015734 


016103 


OOOOOOG 


23 


015740 


020327 


000012 


24 


015744 


103022 




25 


015746 


005761 


OOOOOOG 


26 


015752 


001403 




27 


015754 


052761 


OOOOOOG OOOOOOG 


28 


015762 


020327 


000006 


29 


015766 


103011 




30 


015770 


020327 


000002 


31 


015774 


101470 




32 


015776 


120527 


OOOOOOG 


33 


016002 


001403 




34 


016004 


032705 


OOOOOOG 


35 


016010 


001462 




36 








37 








38 








39 








40 


016012 






41 


016020 


016102 


OOOOOOG 


42 


016024 


010203 




43 


016026 


005203 




44 


016030 


020361 


OOOOOOG 


45 


016034 


103402 




46 


016036 


016103 


OOOOOOG 


47 


016042 


010361 


OOOOOOG 


48 


016046 






49 








50 








51 








52 


016054 


010500 




53 


016056 


004737 


016462' 


54 








55 








56 








57 


016062 


005361 


OOOOOOG 



. SBTTL STRCHR — Store a character into TT buffer 

STRCHR is called to store the character 

in R5 into the input buffer. 

The C-flag is set if the buffer overflows. 

Rl = User index number. 

All registers are preserved. 



STRCHR: MOV 
MOV 
MOV 



RO>-<SP) 
R2, -(SP) 
R3, -<SP) 



Keep track of cursor position of 1st character on the line 

BIT #<*1STCH.'*D0DFR>, LSW3<R1)J 1ST CHAR AFTER ACTIVATION? 

BNE 4* i BRANCH IF NOT FIRST 

BIS #*1STCH, LSW3<Rl)iSAY WE'VE GOT A CHAR 

MOVE LC0L<R1),LINCUR<R1);SAVE CURSOR POSITION 

See if buffer is about to overflow 

4*: MOV LINSPC(R1>,R3 i Get # free bytes in TT input ring buffer 

Got at least 10 free bytes? 
Br if yes 

Gotten an activation char yet? 
Br if not 
Don't move any more chars out of silo 

8$: CMP R3, #6. ; Got at least 6 bytes left? 

Br if yes — accept the character 

Is the buffer as full as we will allow? 

Br if yes — Discard the character 

Is this a carriage return? 

Br if yes — accept it 

Is this an activation character? 

Br if not — Reserve last 4 bytes for act chr 

Determine position where char is to be stored in input ring buffer 
and update pointer to next free position. 



MOV 


LINSPC(R1>,R3 


CMP 


R3, #10. 


BHIS 


7* 


TST 


LACTIV(Rl) 


BEQ 


8* 


BIS 


#*XST0P,LSW6<R1) 


CMP 


R3, #6. 


BHIS 


7* 


CMP 


R3, #2. 


BLOS 


5* 


CMPB 


R5, #CR 


BEQ 


7* 


BIT 


#ACFLAG, R5 


BEQ 


5* 



7*: 



1*: 



DISABL 

MOV 

MOV 

INC 

CMP 

BLO 

MOV 

MOV 

ENABL 



LINNXT<R1),R2 

R2, R3 

R3 

R3i LINEND(Rl) 

1* 

LINBUF<R1).R3 

R3, LINNXT(Rl) 



Store character into buffer 



MOV 
CALL 



R5, RO 
INSCHR 



Update character counts. 
DEC LINSPC<R1) 



Disable interrupts 

Get pointer to next position in TT buffer 

Compute address of next char position 
Did we go past end of buffer? 
Br if not 

Wrap around to front of buffer 
Save pointer to where next char goes 
Enable interrupts 



; Get character i;o store 
; Store the character 



J Reduce free space count for buffer 



i 

i 
I 

I i 
I 

' < 

( 

i 
i 
i 

I 
I 

I 

I 

i 
i 

I 

i 
{ 
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58 016066 

59 

60 

61 

62 016072 

63 016076 

64 016100 

65 016104 

66 016112 

67 016120 

68 016122 
69 

70 
71 

72 016130 

73 016134 

74 016136 
75 

76 
77 

78 016144 

79 016146 

80 016150 

81 016152 

82 016154 
83 

84 
85 

86 016156 

87 016164 

88 016170 

89 016174 

90 016176 



005261 OOOOOOG 



032705 
001414 
005261 
016161 
032761 
001003 
042761 



005761 
001403 



OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 



000241 
012603 
012602 
012600 
000207 



052761 
012700 
004737 
000261 
000763 



INC LINCNT(Rl) ; Count another char in input buffer 

Check for storing activation character. 

BIT #ACFLAG, R5 i IS THIS AN ACTIVATION CHAR? 

BEQ 3* ; BRANCH IF NOT 

INC LACTIV<R1) ; Count another pending activ char 

MOV LINNXT<R1),LSTACT<R1) J REMEMBER POS OF CHAR 

BIT #*DaDFR.LSW3<Rl)i DOING DEFERED ECHOING? 

BNE 3* ; BRANCH IF YES 

BIC #*iSTCH, LSW3<Rl)iSAY NO CHARS AFTER ACTIVATION 

See if we need to trigger a completion routine for TT input 

; Does job want TT input compl routine? 

; Br if not 

/Trigger completion routine 



; SIGNAL NO BUFFER OVERFLOW 



3*: TST 


LTTCR(R1> 


BEQ 


10* 


OCALL 


TTCPL 


; Finished 




10*: CLC 




6*: MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


(SP)+, RO 


RETURN 





OOOOOOG OOOOOOG 

OOOOOOG 

017100' 



Signal buffer overflow 

5*: BIS #*TTERR,LSW4<R1); REMEMBER THAT AN ERROR OCCURED 

MOV #BELL. RO i Get a bell character 

CALL ECH02 iRing the bell to signal buffer nearly full 

SEC ; SIGNAL OVERFLOW 

BR 6* 



TSTTY — TSX Terminal I/O routi MACRO V05. 04 
STRACT — Store activation character 



Monday 25-Jan-88 OS: 31 Page 71 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 

12 016200 

13 016204 

14 016210 

15 016214 

16 016222 

17 016224 
IS 016230 
19 

20 
21 

22 016234 

23 016242 

24 016244 
25 

26 
27 

28 016252 

29 016256 



SBTTL STRACT 



Store activation character 



STRACT is called to store an activation character 
which is contained in R5. The high order bit of 
the luord (ACFLAG) is set on to indicate to GETCHR 
that the character is an activation character. 
After the character is stored the user is activated. 
When called/ R5 must contain the character to be stored. 
Rl must contain the user index #. 
All registers are preserved. 



052705 
004737 
042705 
032761 
001004 
005061 
005061 



032761 
001403 
052761 



004737 
000207 



OOOOOOG STRACT: BIS #ACFLAG, R5 

015702' CALL STRCHR 

OOOOOOG BIC #ACFLAG, R5 

OOOOOOG OOOOOOG BIT #*DBGMD, LSW6<R1 > 

BNE 3* 

OOOOOOG CLR LAFSIZ<R1) 

OOOOOOG CLR LFWLIM<R1) 



SET ACTIVATION FLAG WITH CHAR 

STORE THE CHARACTER 

RESET THE FLAG 

IS DEBUGGER DOING I/O NOW? 

BR IF YES - DON'T RESET ACTIVATION INFO 

RESET FIELD-WIDTH ACTIVATION 

CLEAR FIELD WIDTH LIMIT 



OOOOOOG OOOOOOG 3*: 
OOOOOOG OOOOOOG 



See if we should begin deferred char echoing. 

BIT #*DEFER,LSW2<R1); DEFERRED MODE WANTED? 

BEQ 1* ; BRANCH IF NOT 

BIS #*D0DFR,LSW3(Rl)i BEGIN DEFERRED ECHOING 



015500' 



1«: 



Activate the job 

CALL INFIN 
RETURN 



i ACTIVATE THE USER 



TSTTY - 
STRSNG 
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— Store char with single-character input 



4 
€ 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 



SBTTL STRSNG 



Store char with single-character input 



016260 010546 



016262 052705 0000000 
016266 004737 015702' 



016272 032761 0000000 OOOOOOG 

016300 001403 

016302 052761 OOOOOOG OOOOOOG 



016310 004737 015500' 



016314 012605 
016316 000207 



STRSNG is called to store a character received while in 
single character activation mode. 

Inputs: 
Rl == Job index number. 
R5 = Character received. 

STRSNG: MOV R5, -<SP) ; Save input character 

i Store the activation character 



BIS #ACFLAG, R5 
CALL STRCHR 



i Set activation flag with char 
; Store the character 



See if we need to begin deferred echo mode 

BIT #*DEFER,LSW2<R1); Deferred mode wanted? 

BEQ 4* i Branch if not 

BIS #*DODFR, LSW3(R1); Begin deferred echoing 



Activate the job 

4*: CALL INFIN 

Finished 

9*: MOV (SP)+, R5 
RETURN 



/Activate the job 



i Recover the original character 



I 

4 



< 
I 
I 



€ 
i 

I 

i 
i 
i 
i 
i 



TSTTY ■ 
FETCHR 
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- Fetch next char from TT input ring buffer 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



016320 010446 
016322 010546 



016324 020261 
016330 001450 



OOOOOOG 



016332 010204 

016334 166104 0000000 

016340 073427 177775 

016344 072527 177763 

016350 042705 177770 

016354 066104 0000000 



016360 

016366 

016402 005000 

016404 152200 

016406 136514 000340' 

016412 001402 

016414 052700 OOOOOOG 

016420 

016426 



016434 020261 
016440 103402 
016442 016102 



016446 000241 
016450 000401 



OOOOOOG 
OOOOOOG 



. SBTTL FETCHR — Fetch next char from TT input ring buffer 

FETCHR is called to fetch the next character from the TT input 
ring buffer. 

Inputs: 
Rl = Line index number. 
R2 = Pointer to character in TT input ring buffer. 

Outputs: 
C-flag cleared --> A char was gotten. 

C-flag set ==> No more chars in TT input ring buffer. 
RO = Character gotten <if C-flag cleared). 

The ACFLAG flag is set in RO if the char is an activation char. 
R2 = Updated to point to next character. 



FETCHR: 



MOV 
MOV 



R4, -<SP) 
R5, -(SP) 



See if there is another character in the ring buffer 



CMP R2, LINNXT<R1) 
BEG 8$ 



i Are there any more chars in the buffer? 
i Br if not 



Compute index into bit vector that indicates if character is an 
activation character. 



Get pointer to character 

Get character index into buffer 

Get byte index into vector in R2 

Right justify bit-within-by te index 

Clear possible sign extension from shift 

Get address of byte uith flag bit 



MOV 


R2, R4 


SUB 


LINBUF(R1),R4 


ASHC 


#-3, R4 


ASH 


#-13. ,R5 


BIC 


#-^C7, R5 


ADD 


LINEND<R1),R4 



Get next character from TT ring buffer. 



1*: 



DISABL 




TTMAP 




CLR 


RO 


BISB 


(R2)+, RO 


BITB 


BITMSK<R5), <R4) 


BEQ 


1* 


BIS 


#ACFLAG. RO 


UNMAP 




ENABL 





#* Disable interrupts ** 
Map to TT buffer area 
Initially clear RO 

Get character without sign extension 
Is this an activation character? 
Br if not 

Remember this is an activation character 
Restore mapping 
** Enable interrupts «■» 



See if we need to wrap around to front of ring buffer 



3*: 



CMP R2, LINEND<R1) 

BLO 4* 

MOV LINBUF(R1),R2 

We got a character 



4*: 



CLC 
BR 



;Did we just go past end of' ring buffer? 

; Br if not 

> Wrap around to front of ring buffer 



Signal that we got a character 



9* 



i 
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FETCHR — Fetch next char from TT input ring buffer 

58 i There are no more characters in the buffer 

59 i 

60 016452 000261 8$: SEC ; Signal that there are no more characters 

61 ; 

62 i Finished 

63 ; 

64 016454 012605 9*: MOV (SP)+, R5 

65 016456 012604 MOV <SP)+, R4 

66 016460 000207 RETURN 






TSTTY — TSX Terminal I/O routi 
INSCHR — Insert character into 
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TT input ring buffer 



1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


016462 


010446 




16 


016464 


010546 




17 








IS 








19 








20 


016466 


010204 




21 


016470 


166104 


0000000 


22 


016474 


073427 


177775 


23 


016500 


072527 


177763 


24 


016504 


042705 


177770 


25 


016510 


116505 


000340 ' 


26 


016514 


066104 


OOOOOOG 


27 








28 








29 








30 


016520 






31 


016526 






32 


016542 


110022 




33 


016544 


140514 




34 


016546 


032700 


OOOOOOG 


35 


016552 


001401 




36 


016554 


150514 




37 


016556 






38 


016564 






39 








40 








41 








42 


016572 


020261 


ooooooe 


43 


016576 


103402 




44 


016600 


016102 


OOOOOOG 


45 








46 








47 








48 


016604 


012605 




49 


016606 


012604 




50 


016610 


000207 





. SBTTL INSCHR — Insert character into TT input ring buffer 

This routine is called to insert a character into a specified position 
in the TT input-character buffer for a line. If there is an existing 
character in the positioni it is overwritten. 

Inputs: 
RO = Character to be stored (optionally with ACFLAG flag). 
Rl = Line index number. 
R2 = Pointer to position in buffer where char is to be stored 

Outputs: 
R2 = Pointer to next character position in buffer. 



INSCHR: MOV 
MOV 



R4, -<SP) 
R5, -<SP) 



Compute pointer into parallel bit vector with activation-character flags 

Get character buffer pointer 

Compute byte index into buffer 

Get byte index in R4 

Right justify bit-wi thin-by te index 

Clear possible sign extension 

Get bit mask 

Get address of byte with activation flag 

Store character into buffer and set or clear the activation-character flag 



MOV 


R2, R4 


SUB 


LINBUF<R1),R4 


ASHC 


#-3, R4 


ASH 


#-13. ,R5 


BIC 


#-^C7, R5 


MOVE 


BITMSK(R5),R5 


ADD 


LINEND(R1),R4 



2*: 



DISABL 




TTMAP 




MOVB 


RO, <R2) + 


BICB 


R5, <R4> 


BIT 


#ACFLAG, RO 


BEQ 


2* 


6ISB 


R5, <R4) 


UNMAP 




ENABL 





j ** Disable interrupts ** 
, i Map to TT buffer area 



;; Store character into buffer 
i Clear the activation-character flag 
i Is this an activation character? 

i i Br if not 
; Set the activation-character flag 
{Restore mapping 

*# Enable interrupts ** 



See if we need to wrap around buffer pointer 



CMP 
BLO 
MOV 

Finished 



9$: 



MOV 
MOV 
RETURN 



R2, LINEND<R1) 

9* 

LINBUF<R1),R2 



(SP)+, R5 
(SP)+, R4 



i Do we need to wrap around to buffer front? 

; Br if not 

i Wrap around to front of buffer 



i 

4 
4 
I 
4 
4 
4 
4 
4 
f 
I 

i 

I 
4 

4 
4 

4 
< 
4 
I 
4 



TSTTY — 


- TSX Terminal I/O routi 


DELCHR - 

1 
2 
3 


-- Delet 


e charac 


ter from 








4 








5 








6 








7 








a 








9 








10 








11 








12 








13 








14 








15 








16 


016612 


010346 




17 


016614 


010546 




18 








19 








20 








21 


016616 


010203 




22 


016620 


004737 


016320' 


23 


016624 


103502 




24 








25 








26 








27 


016626 


020361 


0000000 


28 


016632 


001003 




29 


016634 


010261 


OOOOOOG 


30 


016640 


000434 




31 








32 








33 








34 








35 








36 








37 








38 


016642 


010046 




39 


016644 


010346 




40 


016646 






41 


016654 


020261 


OOOOOOG 


42 


016660 


001415 




43 


016662 






44 








45 








46 








47 


016670 


010205 




48 


016672 


004737 


016320' 


49 


016676 


010246 




50 


016700 


010302 




51 


016702 


004737 


016462' 


52 


016706 


010503 




53 


016710 


012602 




54 


016712 


000755 




55 








56 








57 









MACRO V05. 04 Monday 
TT input ring buffer 



J5-Jan-8S 08:31 Page 75 



SBTTL DELCHR 



Delete character from TT input ring buffer 



DELCHR is called to remove a character from the TT input ring buffer. 
If there are other characters in the ring buffer in front of the one 
being deleted^ the ring buffer is compressed. 

Inputs: 
Rl = Line index number. 
R2 = Pointer to character to delete. 

Outputs: 
C-flag set ==> No more characters in buffer. 
RO = Deleted character <Same format as FETCHR). 
R2 = Pointer to character that follouis deleted character. 



DELCHR: MOV 
MOV 



R3, -<SP) 
R5, -<SP) 



Get the character being deleted 



i Save original character pointer 
; Oet character being deleted 
j Br if no character to delete 



See if Mte are deleting the 1st character in the buffer 



MOV 


R2, R3 


CALL 


FETCHR 


BCS 


20* 



CMP R3, LINPNT<R1) 

BNE 3$ 

MOV R2/LINPNT<R1) 

BR 8* 



; Is this the 1st char in the buffer? 
i Br if not 

/Set new pointer to 1st char in buffer 
; Go update buffer counts 



3*: 
4*: 



MOV 


RO, -(SP) 


MOV 


R3, -(SP) 


DISABL 




CMP 


R2, LINNXT(R1> 


BEQ 


5* 


ENABL 





We are not deleting the 1st character in the buffer. 

If we are deleting a character from the middle of the buffer, we move 

over any following characters to compress the free space. 

If we are deleting the last character in the buffer, no compression 

is necessary. 

Save character that is being deleted 

Save pointer to deleted char position 

> i ** Disable interrupts ** 

i i Are we at the end of the chars now? 

i j Br if yes 

** Enable interrupts ** 

Slide characters over in buffer to fill in gap left by deleted character 

Save pointer to following character 

Get next character in buffer 

Save updated pointer 

Get pointer to pos to store character 

Reinsert the character 

Advance insert pointer 

Get pointer to next char to move over 

Loop until all characters have been moved 

We have moved over all characters that followed the deleted one. 
Save new pointer to the end of the characters in the buffer. 



MOV 


R2, R5 


CALL 


FETCHR 


MOV 


R2, -(SP) 


MOV 


R3, R2 


CALL 


INSCHR 


MOV 


R5, R3 


MOV 


(SP)+, R2 


BR 


4* 
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DELCHR — Delete character from TT input ring buffer 



4 



58 

59 016714 

60 016720 

61 016726 

62 016730 
63 

64 
65 

66 016732 

67 016736 

68 016742 

69 016746 

70 016750 
71 

72 
73 
74 

75 016754 

76 016762 

77 016764 

78 016772 

79 016774 

80 017000 

81 017002 

82 017006 

83 017010 

84 017016 

85 017024 
86 

87 

88 

89 017030 

90 

91 

92 

93 017032 

94 017034 

95 017036 



010361 0000000 

012602 
012600 



5*: 



MOV 
ENABL 
MOV 
MOV 



<SP)+, R2 
(SP)+, RO 



005261 
005361 

001402 
005361 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



Update character counters 

8*: INC LINSPC<R1) 

DEC LINCNKRl) 

BIT #ACFLAG,RO 

BEQ 19* 

DEC LACTIV<R1) 



Page 75-1 



; : i S(at npuj pointer to onij nf chars in buf f ei 

i ** Enable interrupts *# 

;Get pointer to char following deleted one 

;Get character being deleted 



; Another free char space in buffer 

» One less char in buffer 

i Is deleted char an activation charT' 

i Br if not 

i One fewer pending activation chars 



If we sent an XOFF to the terminal, 

send an XON if the input buffer is nearly empty. 



032761 
001422 
026127 
101406 
032700 
001413 
005761 
001010 
042761 
052761 
005237 



000241 



012605 
012603 
000207 



OOOOOOG OOOOOOG 

OOOOOOG 000017 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 



19*: 



17*: 



BIT 

BEQ 

CMP 

BLOS 

BIT 

BEQ 

TST 

BNE 

BIC 

BIS 

INC 



#*XSTOP, LSW6<R1) 

16* 

LINCNT(R1),#15. 

17* 

#ACFLAG, RO 

16$ 

LACTIV<R1) 

16* 

#*XST0P,LSW6(R1) 



NEDCDI 
We deleted a character 

16*: CLC 
Finished 

20*: 



Have we stopped input from silo buffer? 
Br if not 

Is input buffer almost empty? 
Br if yes 

Is this an activation character? 
Br if not 

Is this last activation char in buffer? 
Br if not 

Reenable input from silo 
#*NDICP, LSW10<R1 ); Say line needs input character servicing 

i Say input character processing needed 



MOV 


(SP)+, R5 


MOV 


(SP)+, R3 


RETURN 





; Signal that we deleted a character 
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€ 
I 
< 
4 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



017040 
017044 
017050 
017056 
017060 
017066 
017070 
017076 
017100 
017106 
017110 
017114 



017116 
017120 
017124 
017130 
017132 
017136 
017142 
017146 
017152 
017156 
017162 
017164 



017166 
017174 
017176 
017204 
017206 



004737 
004737 
032761 
001016 
032761 
001004 
032761 
001406 
026127 
002402 
004737 
000207 



010046 
112700 
004737 
010500 
052700 
004737 
112700 
004737 
1 1 2700 
004737 
012600 
000207 



032761 
001411 
042761 
010046 
112700 



SBTTL ECHO 



Echo character to terminal 



Subroutine ECHO is called to echo the character in RO. 
User index must be in Rl. 

ECHOl does not check for rubout character echoing. 
ECH02 does not check for deferred character echoing. 
All registers are preserved. 



017166' ECHO: 

017422' ECHDl: 

0000000 0000000 

OOOOOOG OOOOOOG 

ooooooe OOOOOOG 

OOOOOOG 000017 ECH02: 

003122' 

ECHOR: 



CALL RBEND 

CALL CVTLC 

BIT #*DODFR , LSW3 ( R 1 ) 

BNE ECHOR 

BIT #*ECHO, LSW2 ( R 1 ) 

BNE ECH02 

BIT #*DBGMD. LS«6<R1) 

BEQ ECHOR 

CMP L0TSPC(R1),#15. 

BLT ECHOR 

CALL PUTCH2 

RETURN 



TERMINATE ANY RUBOUT FIELD 

CONVERT LOWER CASE CHARS TO UPPER CASE 

ARE WE DEFERRING ECHO NOW? 

BRANCH IF WE ARE 

IS CHARACTER ECHOING WANTED? 

BR IF YES 

IS A DEBUGGER USING TERMINAL NOW? 

BR IF NOT 

ROOM TO ECHO CHAR? 

BRANCH IF NOT 

PUT CHAR IN OUTPUT BUFFER 



.SBTTL ECOCTL — Echo a control character 

ECOCTL is called to echo certain control characters 
such as ctrl-C and ctrl-U. When called R5 must 
contain the control character. The control character 
is converted to a printing ascii char and printed 
following an up arrow and before a cr-lf. 
When called Rl must contain the line index, 
all registers are preserved. 



ECOCTL: 



000136 
017040' 

000100 

017044' 

OOOOOOG 

017044' 

OOOOOOG 

017044' 



MOV 


RO, -(SP) 


MOVB 


#136, RO 


CALL 


ECHO 


MOV 


R5, RO 


BIS 


#100, RO 


CALL 


ECHOl 


MOVB 


#CR, RO 


CALL 


ECHOl 


MOVB 


#LF, RO 


CALL 


ECHOl 


MOV 


(SP)+, RO 


RETURN 





ECHO '•'^' 

GET CONTROL CHARACTER 
CONVERT TO PRINTING CHAR 
PRINT CONTROL CHAR 
PRINT CR-LF 



SBTTL RBEND — Terminate rubout sequence 



RBEND is called to terminate any current rubout field. 
If a rubout field is in progress RBEND puts out 
a back slash and terminates the rubout state. 
When called Rl must contain the user index #. 
All registers are preserved. 



OOOOOOG OOOOOOG RBEND: 
OOOOOOG OOOOOOG 



000134 



BIT #*RBOUT, LSW3(Rl)i ARE WE IN A RUBOUT FIELD? 

BEQ 1$ ; BRANCH IF NOT 

BIC #*RB0UT,LSW3<R1); CLEAR RUBOUT STATE 

MOV RO, -<SP) 

MOVB #'\,R0 ; OUTPUT BACK SLASH 



I 
( 

€ 

i 
i 
i 
i 

i 
i 
i 
( 
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RBEND — Terminate rubout sequence 

58 017212 004737 017044' CALL ECHOl 

59 017216 012600 MOV <SP)+. RO 

60 017220 000207 1*: RETURN 



I 



TSTTY — 
SCACHK - 

1 

2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
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— Check for single-character activation 



. SBTTL SCACHK — Check for single-character activation 

SCACHK is called to determine if this job is in single character 
activation mode. 

Inputs: 
Rl = Job index number. 

Outputs: 
C-flag set if in single character activation mode. 



017222 032761 OOOOOOG OOOOOOG SCACHK: BIT 



017230 001412 

017232 032761 OOOOOOG OOOOOOG 

017240 001406 

017242 032761 OOOOOOG OOOOOOG 

017250 001002 



017252 000261 
017254 000401 



017256 000241 



017260 000207 



BEQ 
BIT 
BEQ 
BIT 
BNE 



#SPCTTY. LJSW<R1 ); Does program want single char input? 

1* ; Br if not 

#*CHACT» LSW5<R1 >; Is single character activation enabled? 

1* ; Br if not 

#*DBGMD. LSW6 ( R 1 ) i I s a debugger using terminal now? 

1* i Br if yes 



Job is in single character activation mode 



SEC 
BR 



i Signal that single char activation wanted 



9* 



Job does not want single char activation 
1*: CLC i Signal no single char activation 

Finished 
9*: RETURN 



I 

4 
4 

i 



032761 
001411 
032761 
001437 
032761 
001033 
000430 



OOOOOOG 
0000000 
OOOOOOG 
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SLCHK — Check for single line 



1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 
12 

13 017262 

14 017270 

15 017272 

16 017300 

17 017302 
IS 017310 
19 017312 
20 

21 
22 
23 

24 017314 

25 017322 

26 017324 

27 017332 

28 017334 

29 017342 

30 017344 

31 017352 

32 017354 

33 017362 

34 017364 

35 017372 
36 

37 
38 

39 017374 

40 017376 
41 

42 

43 

44 017400 

45 

46 

47 

48 017402 
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editor mode 

. SBTTL SLCHK — Check for single line editor mode 

SLCHK is called to determine if this job is in either single character 
activation mode or if the input is going to the single line editor. 

Inputs: 
Rl = Job index number 

Outputs: 
C~flag set if in single-character-activation or SL mode. 
All registers are preserved. 



OOOOOOG SLCHK: 

OOOOOOG 

OOOOOOG 



BIT #SPCTTY* LJSW<R1 )j Does program want single char input? 

BEQ 1* iBr if not 

BIT #*CHACT, LSW5<R1 )/ Is single character activation enabled? 

BEQ 2* i Br if not 

BIT #*DBGMD. LSW6<Rl)i Is a debugger using terminal now? 

BNE 2* J Br if yes 

BR 3* i We are in single character mode 



032761 
00 1 426 
032761 
001022 
032761 
001016 
032761 
001012 
032761 
001004 
032761 
001402 



000261 
000401 



000241 



000207 



OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 
OOOOOOG 



We are not in single character activation mode. 

See if we are in Single Line Editor mode. 

OOOOOOG 1*: BIT #*SLON, LSW7<R1 ) ; Is SL enabled for this line? 

BEQ 2* ;Br if not 

OOOOOOG BIT #DISSLE, LJSW<Rl);Did program disable SL? 

BNE 2* ;Br if yes 

OOOOOOG BIT #<*ODTMD.'*HITTY>, LSW4<R1); Are we in ODT or high efficiency^ 

BNE 2* iBr if yes 

OOOOOOG BIT #*VTESC>LSW5<Rl)i VTxxx activation enabled? 

BNE 2* ;Br if yes 

OOOOOOG BIT #*GTLIN, LSW4<Rl)i Is a . GTLIN being done? 

BNE 3* iBr if yes 

OOOOOOG BIT #*SLTTY, LSW7(Rl)i Is SL enabled for TTY input? 

BEQ 2* iBr if not 

We are in single line activation or single line editor mode. 

3$: SEC i Signal single character mode 



SEC 
BR 



9* 



We are not in single character mode. 
2$: CLC i Signal not single character mode 

Finished 
9$: RETURN 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



. SBTTL SCACHR 



Handle single-character activation characters 



017404 004737 017262' 
017410 103003 



017412 004737 016260' 
017416 000261 



017420 000207 



SCACHR is called to check to see if the program is in single-character 
activation mode. If yes then the current character is passed to the 
program as an activation character. 
If not then the carry-flag is cleared on return. 

Inputs: 
Rl = Virtual line index number. 
R5 = Current input character. 

Outputs: 
C~flag set ==> In single-char activation mode. Char processed. 
C-flag cleared ==> Not in single character activation mode. 



SCACHR: CALL SLCHK 
BCC 9* 



> Are liie in single-char activation mode? 
i Br if not 



We are in single-character activation mode. 

Pass the character to the program as an activation char. 



CALL 

SEC 

Finished 
9«: RETURN 



STRSNG 



j Store character and activate 

J Say character uias processed by us 
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14 
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24 

25 

26 
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17422 
17430 
17432 
17440 



17442 
17444 
17450 
17454 
17456 
17462 
17464 
17470 
17472 



. SBTTL CVTLC — Convert lower-case chars to upper-case 

CVTLC is called to see if TT input characters entered 

in lower case should be translated to upper case. 

When calledi RO must contain the character to be tested. 

Rl must contain the user line index #. 

CVTLC checks to see if set-lc has been done and if the 

bit is set in the JSW allowing lower case characters. 

On return^ the resulting character is returned in RO. 

All other registers are preserved. 



032761 
001404 
032761 
001014 



010046 
042700 
020027 
002405 
020027 
101002 
042716 
012600 
000207 



OOOOOOG OOOOOOG CVTLC: 
OOOOOOG OOOOOOG 



BIT #*LC,LSW2<R1) 

BEQ 1* 

BIT #LCBIT, LJSW(Rl) 

BNE 2* 



WAS "SET TT LC" DONE? 
BR IF NOT 

IS LC-BIT SET IN JSW? 
BR IF YES (LC OK) 



Translate lower case to upper case 



1*: 



OOOOOOG 
000141 

000172 

000040 



3*: 
2*: 



MOV 


RO, -(SP) 


BIC 


#ACFLAG, RO 


CMP 


R0>#141 


BLT 


3* 


CMP 


RO, #172 


BHI 


3* 


BIC 


#40, (SP) 


MOV 


(SP)+, RO 


RETURN 





SAVE ORIGINAL CHARACTER VALUE 

CLEAR ACTIVATION FLAG 

LC( 'A') 

BR IF NOT LOWER-CASE LETTER 

LC( 'Z') 

BR IF NOT LOWER-CASE LETTER 

CONVERT LOWER-CASE LETTER TO UPPER-CASE 

GET POSSIBLY CONVERTED LETTER BACK TO RO 
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3 
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8 

9 

10 

11 

12 

14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL SieWAT 



Signal virtual line tuait condition 



SIGWAT IS CALLED TO SIGNAL THE USER THAT ONE OF HIS 
VIRTUAL LINES IS ENTERING A WAIT CONDITION. 
IF THE LINE ENTERING THE WAIT STATE IS NOT THE ONE 
WHICH IS CURRENTLY ASSOCIATED WITH THE TERMINAL A BELL 
IS SENT TO THE USER'S TERMINAL. 

Inputs: 
Rl = Job index of job entering wait condition. 
All registers are preserved. 



017474 010046 
017476 010146 



SIGWAT: 



MOV 
MOV 



RO, -<SP) 
Rl> -(SP) 



017500 016100 OOOOOOG 
017504 026001 OOOOOOG 
017510 001415 



MOV 


LNPRIM<R1),R0 


CMP 


LNMAP<R0),R1 


BEQ 


9* 



017512 032761 
017520 001011 
017522 052761 



017530 016001 
017534 112700 
017540 004737 



017544 012601 
017546 012600 
017550 000207 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
005722 ' 



Only signal if the job that is entering the wait state is not 
currently connected to the terminal. 

GET PRIMARY LINE # 

IS THE LINE CONNECTED TO TERM? 

IF YES THEN NO NEED TO SIGNAL 

If we have already signaled that job is in a wait state, don't 
signal again until user reconnects to this job. 

BIT #*VBELL. LSW9<R1 )i Have we already signaled wait state? 

BNE 9* ;Br if yes 

BIS #*VBELL>LSW9(R1); Set flag saying we have signaled 

Send bell to signal wait condition 



9*: 



MOV 


LNMAP<R0),R1 


MOVB 


#BELL. RO 


CALL 


TRYCHR 


Finished 




MOV 


<SP)+, Rl 


MOV 


<SP)+, RO 


RETURN 





iGET CURRENTLY CONNECTED LINE # 
; SEND BELL AS SIGNAL CHARACTER 



. SBTTL SIGBRK — Signal program that Break character was received 

SIGBRK is called to signal a program that a Break character was received. 
If the program has requested notification of Break character reception. 
an asynchronous completion routine request is queued for the program. 

Inputs: 
Rl - Virtual line number. 



017552 010446 

017554 016104 OOOOOOG 

017560 001404 

017562 005061 OOOOOOG 

017566 004737 OOOOOOG 

017572 012604 

017574 000207 



SIGBRK: MOV 
MOV 
BEQ 
CLR 
CALL 

1*: MOV 

RETURN 



R4, -<SP) 

LBRKCQ(R1).R4 

1* 

LBRKCQ<R1) 

QCOMPL 

<SP)+, R4 



DOES USER WANT NOTIFICATION OF BREAK? 

BR IF NOT 

SAY THAT BREAK QUEUE ELEMENT HAS BEEN USED UP 

QUEUE COMPLETION ROUTINE FOR THE JOB 
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58 000001 . END 

Errors detected: 

*** Assembler statistics 

Work file reads: 

Work file writes: 

Size of work file: 10440 Words ( 41 Pages) 

Size of core pool: 17920 Words < 70 Pages) 

Operating system: RT-11 

Elapsed time: 00:01:09.44 

DK: TSTTY, LP: TSTTY=DK: TSTTY. MAC/C/N: SYH 



I 

c 
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*1CTLC 


1-55 


51-21 


53-44 


54-40 


55-14 


55- 


-19 


57-29 


60-14 


61-29 


62-16 


63-40 


64-14 


*1ESC 


1-43 
63-36 


50-79 
64-15 


51-20 
65-21 


53-45 
65-48 


54-41 
65-62 


55- 


-20 


57-30 


60-15 


61-30 


62-17 


63-30 


63-33 


*1STCH 


1-48 


47-25 


55-70 


60-40 


70-15 


70- 


-17 


70-68 












*SBIT 


1-52 


12-31 
























*AUTO 
*CCLRN 


1-34 
1-76 


49-32 
35-38 
























*CFABT 


1-86 


9-120 


9-122 






















*CFALL 


1-51 


39-75 


39-82 


41-14 


43-35 


















*CFCCL 


1-87 


9-95 


43-12 






















«CFDCC 


1-87 


9-30 


9-97 






















*CFKIL 


1-87 


55-66 
























*CFOPN 


1-51 


43-22 


43-25 


43-123 




















*CFSOT 


1-54 


13-27 


39-54 


39-61 


39-68 


43- 


-35 














*CHACT 


1-44 


28-23 


28-30 


33-75 


34-11 


57- 


-11 


61-11 


63-13 


77-14 


78-15 






*CTRLC 


1-43 


12-22 


19-17 


33-14 


55-65 


















*CTRLD 


1-40 


56-15 
























*CTRLO 


1-48 


9-113 


13-34 


18-32 


58-9 


58- 


-17 


58-25 












*CTRLS 


1-49 


55-63 
























*CTRLW 


1-48 


50-77 


50-80 


50-85 


50-87 


50- 


-91 














*DBGBK 


1-56 


56-17 
























*DBGMD 


1-82 
71-15 


7-22 
76-15 


35-32 
77-16 


38-25 
78-17 


50-28 


51- 


-49 


51-63 


53-34 


55-40 


60-92 


64-26 


64-93 


*DBKMN 


1-40 


56-12 
























*DEAD 


1-57 


49-27 
























*DEBUG 


1-56 


56-15 
























*DEFER 


1-46 


25-49 


25-56 


71-22 


72-19 


















*DETCH 


1-43 


13-21 


19-15 


19-17 


24-13 


26- 


-10 


27-13 


28-5 


28-14 


29-13 


33-34 


46-7 


*DILUP 


1-42 


49-19 
























*DISCN 


1-42 


12-22 


19-17 


33-14 


33-36 


46- 


-9 














*DODFR 


1-49 


25-57 


35-12 


47-16 


47-54 


55- 


-61 


60-25 


70-15 


70-66 


71-24 


72-21 


76-11 


*DOOFF 


1-42 


7-19 


33-29 






















*ECHO 


1-44 


25-5 


25-12 


35-48 


36-18 


38- 


-10 


64-24 


76-13 










*FLAGC 


1-54 


7-26 


7-28 


7-34 




















*FORM 


1-45 


16-46 
























*FORMO 


1-89 


2-18 
























*GCECO 


1-49 


25-57 


35-14 


35-16 


36-6 


47- 


-24 


55-61 












*GCESC 


1-49 


33-13 


33-95 


33-102 


38-12 


















*GTLIN 


1-51 


9-24 


9-148 


33-49 


41-12 


78- 


-32 














*HITTY 


1-54 


6-37 


8-9 


8-20 


12-16 


28- 


-16 


33-45 


33-85 


50-57 


78-28 






*INKMN 


1-50 


9-56 


9-71 


9-135 


43-42 


43- 


-49 


43-140 


56-10 










*LC 


1-46 


25-31 


25-42 


80-12 




















*LOFCF 


1-59 


7-17 


33-27 


43-36 


51-15 


55- 


-30 














fNDICP 


1-43 


46-18 


75-84 






















*NOIN 


1-47 


7-21 


12-24 


43-38 


46-29 


55- 


-34 














*NOINT 


1-45 


33-58 


46-35 






















*NOLF 


1-81 


30-19 


30-26 


38-23 


53-36 


















*NOOUT 


1-46 


12-38 


20-74 


20-81 


34-41 


















*NOVLN 


1-46 


25-24 
























*NOWIN 


1-37 


17-17 


43-52 


43-102 




















*NOWTT 


1-39 


6-17 


7-24 


28-37 




















*NTGCC 


1-41 


9-39 


9-43 


9-99 




















*ODTMD 


1-51 


33-45 


51-32 


53-22 


54-24 


66- 


-12 


78-28 












*PWKEY 


1-37 


52-16 
























*QUIET 


1-50 


9-104 


35-21 


35-46 


36-16 


39- 


-53 


39-61 


39-68 










«RBOUT 


1-48 


60-24 


64-34 


64-38 


76-53 


76- 


-55 
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*RBRK 


1-34 


49-53 


50-15 


50-18 
















*RFRSH 


1-34 


55-36 




















*RTCS 


1-36 


55-21 


65-22 


65-31 


65-36 


65-58 


65-67 










*SCCA 


1-34 


43-51 


43-96 


43-99 


55-32 














*SCOPE 


1-44 


60-30 


64-28 


















*SETCC 


1-50 


55-45 




















*SLINI 


1-63 


55-60 




















*SLON 


1-38 


33-43 


78-24 


















*SLTTY 


1-38 


33-51 


78-34 


















*SUCF 


1-59 


43-39 


46-30 


55-30 
















*SUSPN 


1-35 


55-67 




















*TAB 


1-45 


16-29 




















*TAPE 


1-86 


30-5 


30-12 


54-13 
















*TRNSP 


1-47 


12-50 


25-64 


















*TTERR 


1-54 


8-59 


8-61 


70-86 
















fUCTLC 


1-50 


24-24 


26-35 


35-34 
















*UKMON 


1-58 


9-58 




















*V52EM 


1-38 


60-71 




















«VBELL 


1-35 


81-26 


81-28 


















*VTESC 


1-55 


23-17 


23-24 


29-38 


33-47 


33-100 


47-40 


50-64 


78-30 






*XSTOP 


1-86 


46-15 


46-17 


48-21 


70-27 


75-75 


75-83 










. . . VI 


40-37 


40-37 


43-24 


43-121 


43-121 


43-127 


43-127 


45-28 


45-28 






. . . V2 


40-37 


40-37 


40-37# 


40-37# 


43-24 


43-24# 


43-121 


43-121 


43-121# 


43-121# 43-127 


43-127 




43-127# 


43-127# 


45-28 


45-28 


45~2S# 


45-28# 












ABORT 


1-94 


45-33 




















ACFLAG 


1-69 


24-43 


24-45 


27-39 


27-42 


29-34 


33-78 


35-6 


38-17 


47-47 68-34 


70-34 




70-62 


71-12 


71-14 


72-14 


73-43 


74-34 


75-68 


75-79 


80-20 






AF*CCA 


1-34 


43-97 




















AF$NPW 


1-35 


43-100 




















AFCF 


1-34 


43-4S» 


43-95* 


43-97 


43-100 














ASKLIN 


1-25 


9-12# 




















AUTSPD 


1-36 


49-34 




















BELL 


1-67 


29-50 


51-65 


70-87 


81-33 














BITMSK 


1~175# 


73-41 


74-25 


















BKSPAC 


1-58 


1-66 


60-63 


60-95 


60-99 


64-64 


64-74 


64-81 


64-90 


64-97 




BRKPT 


1-87 


59-10 




















BUFCHR 


1-21 


1-26 


17-24 


1S-12# 
















CCVECT 


21-35 


22-4# 


22-30 


















CFACFL 


1-34 


42-15 


42-39 


















CFARO 


1-40 


40-37 


43-121 


43-127 


45-28 














CFBLK 


1-76 


40-36* 


40-37 


43-117* 


43-127 














CFBUF 


1-63 


40-37 


40-49 


43-127 
















CFCHAN 


1-63 


40-37 


40-37 


43-24 


43-24 


43-121 


43-121 


43-127 


43-127 






CFCHAR 


39-26 


39-34 


40-1 5# 


















CFEND 


1-63 


40-32 




















CFHOLD 


1-44 


9-103* 


39-19 


39-21* 


39-116* 


43-18* 












CFIND 


1-91 


43-17 


43-83* 


















CFLAO 


1-89 


3-17 




















CFLFL4 


1-92 


43-87 




















CFNEST 


1-91 


43-29 


43-132* 


















CFPNT 


1-61 
43-13 


9-100 


9-111 


9-118 


13-29 


25-71 


40-31 


40-45 


40-52* 


41-10 42-10* 


42-33* 


CFPOP 


40-44 


43-6# 




















CFSP 


1-91 


43-60 


43-131* 


















CFSPND 


1-69 


9-48* 


9-100* 


9-144 


9-147* 


25-73* 


25-81 


25-84* 








CFSTOP 


9-101 


25-74 


42-6# 


43-34 
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CFSTRT 


9-146 


25-83 


42~29# 


43-116 








CFTEST 


7-15 


27-16 


29-18 


35-4 


35- 


-40 


35-44 


CFTNO 


41-11 


41-15 


41-18# 










CFTSTl 


41-12# 














CHKABT 


1-73 


2-35 


2-38 


2-56 


2- 


-59 


4-19 


CHKODT 


51-34 


66-12# 












CHNADR 


1-90 


2-15* 


3-14 


3-16# 


3- 


-33« 




CKCW 


50-29 


50-65 


50-67 


50-69 


50- 


-75# 




CKHIIN 


50-50 


50-57# 












CKICTL 


50-88 


50-90 


50-101# 










CKSPAC 


50-34 


50-36 


50-42# 










CKVTAC 


50-70 


65-14# 












CKVTES 


50-43 


50-58 


50-64tt 










CMDA 


22-4 


23-5# 












CMDB 


1-28 


22-5 


23-17# 










CMDC 


1-28 


22-6 


23-24# 










CMDD 


22-7 


24- 5# 












CMDE 


1-28 


22-8 


25~5# 










CMDF 


1-28 


22-9 


25~i2# 










CMDO 


1-28 


22-10 


25-18# 










CMDH 


1-28 


22-11 


25-24# 










CMDI 


1-28 


22-12 


25-3 1# 










CMDJ 


1-29 


22-13 


25-42# 










CMDK 


1-29 


22-14 


25-49# 










CMDL 


1-29 


22-15 


25-56# 










CMDM 


1-29 


22-16 


25~64# 










CMDN 


1-29 


22-17 


25-71# 










CMDO 


1-29 


22-18 


25-81 # 










CMDP 


22-19 


26-5# 












CMDQ 


22-20 


27-5# 












CMDR 


1-29 


22-21 


2S-5# 










CMDS 


1-30 


22-22 


2S-23# 










CMDT 


1-30 


22-23 


28-30# 










CMDU 


1-30 


22-24 


28-37# 










CMDV 


22-25 


29-5# 












CMDW 


1-30 


22-26 


30-5# 










CMDX 


1-30 


22-27 


30-12# 










CMDY 


1-30 


22-28 


30-19# 










CMDZ 


1-30 


22-29 


30~26# 










CORUSR 


1-61 


9-23 


10-10 


11-15 


33- 


-12 


43-11 


CR 


1-58 
70-32 


9-128 
76-38 


20-44 


24-55 


29- 


-32 


37-10 


CS*EOF 


1-89 


2-15 


3-14 


3-16 


3- 


-33 




CSEMFO 


1-155 


1-166# 












CSEMID 


1-153 


1-164# 












CSEMIL 


1-152 


1-163# 












CSEMIS 


1-157 


1-168# 












CSEMIV 


1-158 


1-169# 












CSEMNF 


1-156 


1-167# 












CSEPRO 


1-154 


1-165# 












CSIERR 


1-152# 


10-36 












CSIMSG 


1-25 


10-34# 












CTLRTN 


52-33 


52-42# 












CTRLC 


1-64 


9-73 


9-74 


24-22 


26- 


-33 


35-30 


CTRLX 


1-64 


38-49 












CTRLZ 


1-64 


1-89 


3-24 


9-69 


9- 


-133 


38-45 



36-14 39-14 41-10# 



11-28 11-31 31-15 39-97 46-31 



38-58 44-34 49-37 54-26 54-35 60-57 



38-47 49-39 
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CURPRM 


1-63 


39-96* 


40-16 


40-23* 


40-27# 


43-79* 










CVTLC 


1-22 


33-77 


34-5 


47-44 


50-45 


76-10 


80~12# 








CXTRMN 


1-40 


9-60 


42-14 


42-38 


43-16 


43-142 










DELCHR 


1-22 


24-64 


29-47 


33-67 


68-37 


75-16# 










DELUAC 


24-15 


26-12 


26-19# 
















DFRREL 


7-29 


46-24 


47-9# 
















DISSLE 


1-40 


33-41 


78-26 
















DOCTRL 


50-103 


52-10# 


















DDSCHD 


1-70 


2-33 


2-54 


4-17 


11-26 


55-46* 










DOSWIT 


1-36 


50-96 


















ECHO 


51-38 


51-51 


53-25 


54-27 


57-19 


63-21 


63-29 


69-10 


76-9# 


76-34 


ECHOl 


53-27 


53-39 


54-29 


59-20 


60-64 


60-96 


60-98 


60-100 


64-37 


64-41 




64-91 


64-96 


64-98 


76-10# 


76-37 


76-39 


76-41 


76-58 






ECH02 


51-66 


70-88 


76-14 


76-17# 














ECHOR 


76-12 


76-16 


76-18 


76-20# 














ECOCTL 


55-24 


55-64 


58-16 


58-26 


59-16 


60-35 


61-19 


62-11 


76-32# 




EMTADR 


1-94 


6-23 


45-31 
















EMTBLK 


1-88 


2-6 


2-9 


2-16 


2-50 


3-6 


3-9 


3-19 


3-40 


4-5 




8-15 


8-18 


8-34 


8-37 


8-55 


8-67 


8-68 








EMTPS 


1-90 


3-17* 


















EMTXIT 


1-90 


4-26 


5-11 


6-42 


7-37 


8-10 


8-58 


8-70 






ENQTL 


1-60 


32-7 


67-50 
















ERHAZL 


60-76 


60-1 1S# 


















ERVIOO 


60-79 


60-117# 


















ERV52 


60-69 


60-1 i6# 


















ESC 


1-68 


37-8 


38-40 


39-41 


60-116 


60-117 










ESC FLO 


1-70 


29-36 


33-98 


47-38 


65-64 












ESCHK 


12-40 


20-14# 


















ESCRLF 


20-44# 


37-24 


37-25 
















ESCTL 


20-34# 


37-21 


















ESESC 


20-60# 


37-23 


















ESFF 


20-52# 


37-22 


















ESHT 


20-66# 


37-26 


















ESRSi 


20-30 


20-40 


20-48 


20-56 


20-62 


20-70 


20-8 1# 








ESRS2 


20-29 


20-35 


20-39 


20-47 


20-53 


20-61 


20-67 


20~74# 






ESRTN 


20-37 


20-45 


20-55 


20-69 


20-75# 












ESUAC 


20-22# 


34-33 


















ESXIT 


20-77 


20~a3# 


















FAKCMP 


1-SS 


4-16 


















FETCHR 


24-35 


24-60 


27-37 


29-31 


47-35 


59-18 


64-57 


68-30 


73-1 7# 


75-22 


FF 


1-75 


1-89 


2-20 


20-52 


37-7 












FORCEX 


1-66 


55-68 


















FRKPRI 


1-39 


18-22 


















GCCKAC 


33-97 


34-10 


35~4# 
















GCCKCC 


33-81 


34-12 


35-13 


35-17 


35-22 


35-30# 










GCCKCE 


35-5 


35-21# 


















GCCKDE 


35-7 


36-6# 


















GCCKDS 


33-80 


35-12# 


















GCCKES 


33-22 


33-99 


33-101 


34-5# 














OCEAC 


35-15 


35-26# 


















GCECHO 


35-26 


36-8 


38-S# 


47-45 














GCEND 


33-90 


35-31 


35-35 


35-37 


35-41 


36-7 


36-12# 








GCEXIT 


33-54 


36-13 


36-17 


36-19 


36-2 1# 












GCHl 


33-14# 


33-65 


33-68 
















GETCHR 


3-23 


7-35 


8-42 


9-121 


9-127 


33-10# 










GETUCH 


1-88 


2-41 


8-22 


8-26 















64-75 



64-84 



4-13 



8-5 



75-48 
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GOTCHR 

GTCFCH 

STCMl 

OTLTTY 

OTSLCH 

GTSPAC 

HAZEL 

HION 

HIPUT 

HIRTN 

ICPCR 

ICPCTC 

ICPCTD 

ICPCTG 

ICPCTO 

ICPCTR 

ICPCTU 

ICPCTX 

ICPCTZ 

ICPESC 

ICPLF 

ICPRUB 

ILSW2 

ILWAIT 

IN*ACT 

INCHR 

INFIN 

INITFL 

INITLN 

INSCHR 

INTPRI 

JSWLOC 
KILCHR 
KPAR6 

LABTIM 
LACTIV 

LAPS I Z 

LBRKCH 

LBRKCQ 

LCBIT 

LCOL 

LESRTN 
LF 

LF*IN 

LF*OUT 

LF*WRT 

LFWLIM 

LHIPCT 

LI FUN 

LINBUF 

LINCNT 



48-32 

9-49 

12-64 

1-90 

1-38 

1-28 

1-55 

8-7 

6-41 

8-8 

52-55 

52-45 

52-46 

52-49 

52-57 

52-60 

52-63 

52-66 

52-68 

52-69 

52-52 

50-107 

1-44 

33-64 

1-42 

50-83 

67-10# 

1-71 

1-92 

24-47 

1-69 

75-43 

1-71 

60-105 

1-86 
74-37* 
1-45 
1-61 
75-70# 
1-69 
1-80 
1-82 
1-68 
1-72 
1-53 
1-53 
1-67 
53-26 
1-95 
1-95 
1-95 
1-83 
1-93 
12-60 
1-62 
1-66 



49-9# 
9-91 
21-30# 

9-32 
33-53 
24-5 
60-50 
28-7 
8-23 
S-10# 
53-9# 
55-9# 
56-10# 
57-9# 
58-9# 
59-9# 
60-9# 
61-9# 
62-9# 
63-9# 
54-9# 
64-9# 
49-32 
46-7# 
9-61 
51-71 
71-28 
49-13 
49-45 
27-44 
1-70 
75-60 
25-32 
64-39 
18-41 

49-51 

7-13 
75-81 
24-49* 
50-33 
81-52 

1-79 
14-41* 
20-28 
20-18 

9-93 
53-33 
35-42 
12-69 
45-13 
24-50* 
33-60* 
21-S# 
68-25 

8-57 



33-20 

9-41 

24- 10# 
60-77 
2S-14# 
12-18 
8-19 
54-36 



81-54* 
25-33 



76-40 
36-12 



70-46 
24-32 



39-14# 39-83 

9-89 



19-10# 
8-25 



55-51 



8-29 



43-143 

53-32 69-7# 

72-25 



70-53 74-1 5# 75-51 

1-79 18-51 18-57 

25-35* 

64-46 6S-13# 

18-41* 18-43* 19-40 



8-45 24-48* 27-20 

27-46* 27-53* 51-44 



80-14 



20-46 



8-46 



S-60 



19-47 



46-44 



47-20 



47-58 



70-48 



73-45 



19-40* 19-42* 73-38 



73-38* 73-44* 74-31 



27-45* 33-62 

55-59* 71-17* 



46-33 



47-18 



55-69* 70-25 



74-38 



74-31* 



70-64* 



16-13* 16-15* 16-21* 16-28 

20-34 34-40* 
34-34* 

9-123 16-50 



16-40* 47-26 



20-54 



24-61 



37-9 



60-42 



38-21 



60-84* 70-18 



38-60 



44-36 



53-16 



27-47* 29-15* 29-55* 51-59 55-58* 71-18* 

46-37* 



73-29 
24-57 



73-51 
27-29 



74-21 
29-28 



74-44 
47-33 



51-47 



51-61 



55-54* 68-18 



70-58* 
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L INCUR 
LINEND 
LINNXT 
LINPNT 
LINSIZ 
LINSPC 
LITIME 
LJSW 

LNMAP 

LNPRIM 

LNSPAC 

LOGBLK 

LOOBUF 

LOGCHl 

LOGCHN 

LOGCHR 

LOGCR 

LOGEND 

LOGFLG 

LOGPTR 

LOTBUF 

LOTEND 

LOTNXT 

LOTPNT 

LOTS I Z 

LOTSPC 

LRBFIL 

LRDTIM 

LRTCHR 

LSCCA 

LSNDCH 

LSPACT 

LSTACT 

LSTATE 

LSTPRM 

LSW 



LSWIO 
LSWll 
LSW2 

LSW3 



LSW4 



75-67# 

1-76 

1-62 

1-65 

1-61 

1-66 

1-47 

1-95 

1-41 
57-9 

1-60 

1-67 

1-64 

1-94 

1-94 
44-19 

1-94 

1-23 

1-23 

1-94 

1-95 

1-95 

1-72 

1-72 

1-72 

1-75 

1-37 

1-72 

1-78 

1-SO 

1-80 

1-62 

1-53 

1-64 

1-37 

1-76 

1-91 

1-41 
33-14 
55-65# 
65-62* 

1-52 

1-37 

1-41 
30-12* 

1-41 
33-13* 
47-24* 
55-70* 
70-68* 

1-34 

9-30 
28-16* 
39-75* 
43-123* 
78-32 



75-77 

47-26* 

68-27 

55-52 

24-31 

55-55 

55-55* 

33-61* 

1-90 
61-9 
49-18 
50-14 
24-16 
45-28 
45-25 
44-22 
45-28 
12-71 
35-51 
45-20 
12-69 
45-18 
18-46 
18-44 
18-40 
55-57* 
55-56 

6-9 
23-10* 

8-67* 

8-68* 
35-36 
12-45* 
24-19 
55-53* 

2-36 
43-66 

7-19* 
33-29* 
55-67* 

46-18* 
17-17 
12-31 
35-48 

7-21* 
33-95 
47-25* 
58-9 
71-24* 
1-41 
9-56 
33-45 
39-82* 
43-140 



60-44 
70-44 
55-53 
27-35 



46-38* 

6-15 
63-11 
81-20 
55-62 
24-21* 
45-34* 

44-35 
45-28 
35-50 
44-33# 

35-42 

45-32* 

19-45 

19-43 

18-47* 

58-15* 

58-14 

18-20 

60-48 

67-33* 

8-69* 
55-38 
20-38 
26-23 
59-17 

2-57 



33-34 
57-30* 

49-53* 
43-52* 
16-29 
36-18 

9-113* 
33-102* 
47-54* 
58-17* 
72-21* 

2-18 

9-71 
33-49 
41-12 
50-57 



64-54 
73-33 

68-23 
29-27 

70-57* 
67-45 

7-5 
77-12 
81-32 
60-70 
26-21 



44-37 
36-20 



36-12 
45-41* 



19-39 



18-24 
60-91 

33-69* 

20-75* 
38-33 
64-56 
4-20 

13-21 

33-36* 

60-15* 

50-15 

43-102* 

16-46 

38-10 

12-24 

34-41* 

49-27 

58-25* 

76-11 

6-37 

9-95 
33-85 
41-14 
51-32 



70-18* 
73-49 
70-41 
33-66 

75-66* 

9-32 
78-13 

81-19 

26-32* 



45-9# 
44-9# 

45-13 
19-46* 



18-39* 
64-92 



74-26 74-42 

70-47* 70-65 73-22 

47-29 55-52* 75-27 



50-46 

70-65* 

11-29 

19-15 

46-7 

61-30* 

50-18* 
52-16 
25-5* 
54-13 
12-38 
35-12 
50-77 
60-24* 
76-53 
7-26 
9-97* 
35-21 
43-12* 
53-22 



9-41 
78-26 



38-31 



55-57 



19-31 



58-18 

19-17 
46-9* 
62-17* 

75-84* 
60-71 
25-12* 
60-30 
12-50 
35-14 
50-80* 
60-25 
76-55* 
7-28* 
9-104 
35-34 
43-22 
54-24 



9-89 

ao-14 



50-42 



5B-15 



1 9-38* 



67-22 

24-13 
49-19 
63-30 



25-24* 

64-24 

13-34 

35-16* 

50-85* 

60-40 

7-34* 
9-135 
35-46 
43-25* 
55-36 



25-34* 



31-29 



26-10 

50-79* 

63-33* 



25-31* 

64-28 

18-32 

36-6 

50-87 

64-34 

8-9* 

9-148* 
36-16 
43-35* 
55-45* 



75-41 
75-29* 



33-41 



75-59* 



55-56* 



27-13 

51-20* 

63-36* 



25-42* 

71-22 

20-74* 

38-12 

50-91* 

64-38* 

8-20 
12-16 
39-53* 
43-42 
56-10 



33-73 



58-14* 



28-5 

53-45* 

64-15* 



25-49* 

72-19 

20-81* 

43-38* 

55-34 

70-15 

8-59 
13-27 
39-54* 
43-49 
66-12 



34-9 



76-17 



28-14 

54-41* 

65-21* 



25-56* 

76-13 

25-57* 

46-29* 

55-61* 

70-17* 

8-61* 
24-24* 
39-61* 
43-88* 
70-86* 



55-51* 



29-13 

55-20* 

65-48 



30-5* 

80-12 

25-64* 

47-16 

55-63* 

70-66 

9-24* 
26-35* 
39-68* 
43-91* 
78-28 
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LSW5 


1-41 


6-17 


7-24 


23-17* 


23-24* 


2a-P3* 


28-30* 


28-37* 


29-38 


33-47 


33-75 


33- 


-100 




34-11 


35-38 


43-51* 


43-96* 


43-99* 


47-40 


50-64 


51-21* 


53-44* 


54-40* 


55-14 


55- 


-19* 




55-32 


57-11 


57-29* 


60-14* 


61-11 


61-29* 


62-16* 


63-13 


63-40* 


64-14* 


77-14 


78- 


-15 




78-30 


























LSW6 


1-86 


7-22 


9-120* 


9-122* 


30-19* 


30-26* 


35-32 


38-23 


38-25 


46-15 


46-17* 


48- 


-21 




50-28 


51-49 


51-63 


53-34 


53-36 


55-40 


55-66* 


60-92 


64-26 


64-93 


70-27* 


71- 


-15 




75-75 


75-83« 


76-15 


77-16 


78-17 


















LSW7 


1-39 


9-58 


33-43 


33-51 


33-58 


46-35 


55-60* 


78-24 


78-34 










LSW9 


1-59 


7-17 


9-39 


9-43* 


9-99* 


33-27 


43-36 


43-39* 


46-30* 


51-15 


55-21* 


55- 


-30 




56-12 


56-15 


56-17* 


65-22* 


65-31* 


65-36 


65-58* 


65-67 


81-26 


81-28* 








LTRMTP 


1-84 


60-50 


60-73 






















LTSCMD 


1-68 


12-58 


12-64* 


21-15 


21-16* 


23-5* 


24-5* 


26-5* 


27-5* 


29-5* 








LTTCR 


1-35 


50-68 


70-72 






















LTTPAR 


1-86 


18-41 


19-40 


73-38 


74-31 


















LWINDO 


1-52 


17-15 


19-23 


52-18 




















MAPHLD 


1-14S# 


18-41« 


18-43 


19-40* 


19-42 


73-38* 


73-44 


74-31* 


74-37 










MAXCC 


1-30 


21-32 


22-30# 






















MAX SEC 


1-78 


50-94 
























MXCPRM 


1-62 


39-89 
























MXSPAC 


1-37 


24-17 
























NEDCDI 


1-46 


46-19« 


75-85* 






















NESCTL 


34-23 


37-12# 
























NOWAIT 


1-39 


6-15 


7-5 






















OTREGO 


32-6# 


58-20 
























OUTSTR 


10-7# 


10-37 
























OVRHC 


1-89 


17-19 


19-25 


33-53 


49-34 


49-45 


50-96 


52-25 


70-74 










PBFEND 


1-92 


43-74* 
























PC2VEC 


14-33 


15-10# 
























PCCBS 


15-18 


16-13# 
























PCCCR 


15-23 


16-21# 
























PCCFF 


15-22 


16-46# 
























PCCHT 


15-19 


16-27# 
























PCCINS 


15-10 


15-11 


15-12 


15-13 


15-14 


15-15 


15-16 


15-17 


15-20 


15-21 


15-24 


15- 


-25 




15-26 


15-27 


15-28 


15-29 


15-30 


15-31 


15-32 


15-33 


15-34 


15-35 


15-36 


15- 


-37 




15-38 


15-39 


15-40 


15-41 


16-S# 


















PCSPND 


1-24 


18-31 


19-33 


31-11# 




















PR7 


1-69 


18-16 


19-30 


31-28 


46-32 


47-15 


70-40 


73-37 


74-30 


75-40 








PR C END 


50-19 
50-104 


50-24 
50-108 


50-38 
50-1 13# 


50-53 


50-60 


50-71 


50-82 


50-84 


50-86 


50-93 


50-95 


50- 


-97 


PRCHAR 


49-58 


50-8# 
























PRINT 


1-26 


5-5# 
























PRIVCO 


1-36 


43-44* 


43-108* 






















PRIVFO 


1-36 


43-41* 


43-107* 






















PRIVSO 


1-36 


43-41 


43-44 






















PRMBUF 


1-92 


43-75 
























PRMPNT 


1-62 


39-96 


43-61 






















PSW 


1-70 


18-16* 


18-51* 


18-57* 


19-30* 


19-47* 


31-28* 


46-32* 


46-44* 


47-15* 


47-20* 


47- 


-58* 




70-40* 


70-48* 


73-37* 


73-45* 


74-30* 


74-38* 


75-40* 


75-43* 


75-60* 










PUTCHl 


12-76 


13-17# 


38-54 


38-57 


38-59 


38-66 
















PUTCH2 


13-40 


14-15# 


60-58 


60-85 


76-19 


















PUTCHR 


1-21 
11-46 


2-21 
11-52 


2-44 
11-54 


2-65 
12-11# 


2-70 


3-22 


6-39 


8-27 


10-15 


10-18 


10-20 


11- 


■39 


PUTUCH 


1-88 


3-28 


3-45 


8-43 




















PVNPW 


1-36 


43-46 


43-110 






















QCOMPL 


1-47 


81-55 
























QHDSPN 


1-74 


31-14 


46-41 
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QNSPNX 


1-74 


2-37 


2-58 


4-21 


t 1 -r^n 


















QUECHR 


1-26 


14-45 


16-8 


16-16 


16-22 


16-32 


16-37 


16-51 


16-55 


17-11# 


29-51 


31-31 




R*CFST 


1-34 


42-1 5# 


42-39* 






















R*INST 


1-91 


9-61 


43-17* 


43-143 




















RBEND 


76-9 


76-53# 
























REOCHR 


50-109 


51-9# 


52-42 


52-43 


52-44 


52-47 


52-48 


52-50 


52-51 


52-53 


52-54 


52-56 






52-58 


52-59 


52-61 


52-62 


52-64 


52-65 


52-67 


52-70 


52-71 


52-72 


52-73 


56-22 






57-25 


61-25 
























RSSPAC 


1-29 


26-5 


26-10# 






















RUBOUT 


1-66 


14-39 


50-105 






















S**RUN 


1-56 


67-39 
























S*INWT 


1-77 


46-40 


67-31 






















SfOTFN 


1-60 


32-6 
























S*OTWT 


1-73 


31-13 


58-18 






















S*TTFN 


1-Sl 


67-18 
























S*TTSC 


1-81 


67-16 
























SCACHK 


38-8 


50-66 


77-12# 






















SCACHR 


50-81 


54-18 


55-22 


59-11 


60-19 


62-9 


64-19 


79-16# 












SESCTL 


34-24 


37-7# 


37-12 






















SESRTN 


34-30 


37-22# 
























SETC 


1-90 


7-30 


8-62 






















SETERR 


1-37 


6-32 
























SETRBF 


1-28 


23-5 


23-10# 






















SFWAC 


1-29 


27-5 


27-i0# 






















SFWL 


1-30 


29-5 


29-10# 






















SIGBRK 


50-17 


50-37 


81-51# 






















SIGWAT 


1-26 


31-12 


46-28 


81-13# 


















SILFET 


1-35 


48-26 
























SLCHK 


27-18 


29-20 


51-25 


53-13 


63-9 


67-14 


78-13# 


79-16 












SPACE 


1-78 


60-48 


64-83 




















SPCTTY 


1-76 


33-41 


33-73 


34-9 


55-51 


57-9 


61-9 


63-11 


77-12 


78-13 








STOP 


1-60 
43-145 


7-20 
46-10 


9-44 


9-63 


9-137 


12-26 


19-19 


33-16 


33-30 


33-37 


35-52 


43-55 




STPFLG 


1-71 


49-25 
























STRACT 


1-24 
71-12# 


50-52 


51-53 


53-15 


53-40 


54-30 


55-25 


57-20 


61-20 


62-12 


63-35 


65-71 




STRCHR 


50-59 


63-22 


63-32 


65-65 


65-69 


69-7 


70-9# 


71-13 


72-15 










STRSNG 


51-27 


51-39 


57-13 


61-13 


63-15 


72-10# 


79-22 














SUCF2 


1-35 


43-53 
























TAB 


1-66 


20-66 


37-11 


64-48 


64-59 


















TRNSFL 


1-68 


12-52 


14-20 






















TRNSTR 


1-38 


18-52 


19-51 






















TRYCHR 


31-2S# 


81-34 
























TSTTY 


l-6# 


1-23 
























TTCPL 


1-35 


70-74 
























TTCSCH 


1-85 


2-30 


2-51 


11-14 


11-25 


















TTEOF 


3-25 


3-33# 
























TTFIN 


2-46 


2-72 


3-31 


3-38 


3-43 


4-4# 
















TTINCP 


1-23 


48-1 5# 
























TTREAD 


1-25 


3-6# 
























TTYIN 


1-26 


7-5# 
























TTYOUT 


1-26 


6-5# 
























TTZERO 


3-18 


3-37# 
























UHIMEM 


1-85 


5-6 
























UOTSTR 


5-10 


9-114 


11 -9# 






















URO 


1-90 


4-9* 


5-5 


6-36 


7-36* 


8-41* 


8-44* 


8-57* 
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I 



VALADB 

VINTIO 

VQUANl 

VTIOO 

VT2007 

VT200e 

VT52 

VTSLCH 

WLSCH 

VVPWCH 

WINCHR 

WINPRT 

WRITTT 

XHIIN 

XHIOUT 

XHISET 

XRDTIM 

XTCC 

XTERCK 



1-88 
1-93 
1-81 
1-84 
1-84 
1-84 
1-84 
1-68 
1-50 
1-36 
1-52 
1-35 
1-25 
1-27 
1-27 
1-27 
1-27 
8-50 
1-27 



2-8 
33-60 
33-61 
60-50 
60-50 
60-50 
60-50 
12-62 
50-75 
52-14 
17-19 
52-25 
2-6# 
8-34# 
8-1 5# 
8-5# 
S-67# 
8-62# 
S-55# 



2-14 
46-37 
46-38 



60-74 



19-25 



3-8 



3-13 



5-9 



8-17 



S-3A 



n-An 
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. . . CMl 


40-37 


43-121 


43-127 


45-28 
















. . . CM2 


40-37 
45-28 


40-37 


40-37 


40-37 


43-121 


43-127 


43-127 


43- 


-127 


43-127 


45-28 


. . . CM3 


43-24 






















. . . CMS 


40-37 


43-121 


43-127 


45-28 
















. . . CM7 


40-37 


43-127 


45-28 


















. PURGE 


1-17# 


43-24 




















. READW 


1-17# 


40-37 


43-127 


















. REOPE 


1-17# 


43-121 




















. WRITW 


1-17# 


45-2S 




















DISABL 


l-99# 


18-16 


19-30 


31-28 


46-32 


47-15 


70-40 


73- 


-37 


74-30 


75-40 


ENABL 


1-103# 


18-51 


18-57 


19-47 


46-44 


47-20 


47-58 


70- 


-48 


73-45 


74-38 


OCALL 


1-107# 


17-19 


19-25 


33-53 


49-34 


49-45 


50-96 


52- 


-25 


70-74 




TTMAP 


1-137# 


18-41 


19-40 


73-38 


74-31 














TTMAPX 


1-12S# 






















UNMAP 


1-142# 


18-43 


19-42 


73-44 


74-37 














UNMAPX 


1-134# 























45-28 



45-28 



75-43 



75-60 
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